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Avertissement 


Ce Livre constitue La suite de "Boîte à outils pour 
Tome 1". Les programmes présentés ici sont d'un niveau 
plus complexe. ILs gardent La fonme structurée et hié- 
rarchisée définie dans Le tome 1. 


Rappelons qu'un programme hiérarchisé possède des ni- 
veaux de complexité différents 


. Un module de commande (Niveau hiérarchique él£evé) 

. Souvent 3 modules principaux (Début, Traitement, Fin) 

. Des procédures élémentaires, souvent sollicitées 
(Niveau hiérarchique bas). 


Le but de La hiéranchisation est de rendre un pro- 
gramme plus compréhensible et facilement adaptable à des 
modifications éventuelles. 


Rappelons également qu'un programme structuré possède 
une base (ou structure) définie et Logique, et que Le bw 
de La structuration est d'augmenter La Lisibilité du 
programme et par £a suite, sa maintenance. 


Les programmes qui suivent possèdent souvent 3 modules 
principaux : Début, Traitement et Fin (structure A). 
Les modules Début et Fin ont La même fonction dans 
chaque programme. Pour cette naison, ils ne senont ex- 
plicités que dans Le premier programme. 
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Compatibilité ORIC-1 
ORIC ATMOS 


Les 17 programmes proposés dans ce livre ont été développés sur 
ORIC 1. Ils sont compatibles ORIC ATMOS moyennant les modifications 
suivantes : 


ATTERRISSAGE FORCE 


Menux 
2010 : GOSUR 1500: FRINT"Carburant :"3:CA: 
"Bombes vert.:"3;:V6 


2020 : GOSUR 1500: FRINT" "5 

"Laser horiz.s"s:Hl 

2770 : PRINT CHR$& (11); CHR (11)35" Carburant +: "3 
CA: "Eombes vert.:"3V6G 

2870 : FRINT" Laser": 


“horiz.s"s dl 


MUR DE BRIQUES 


Menu * 
2270 : FOR J=0 TO 35 
2480 : PRINT ‘"PFressez une touche pour commencer" 


3131 : IF XH+VX<4 THEN VX=1:FLAYS,0, 1,90 
4040 : PRINT CHR$ (27); "L":; CHR$ (27); "Fressez une 
touche pour commencer". 


3370 : PRINT'"Pour commencer,frappez une 
touclie 

3640 : IF X1=2 OR X1=538 OR Y1=0 OR Y1=25 THEN 
FIN=1:S=1:GOT0 3700 
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SLALOM SKI 


eus. 3370 : PRINT'Four commencer, frappez une 
touche" 
3640 : IF X1=2 OR X1=38 OR Y1=0 OR Y1=25 THEN 
FIN=1:S=1:GOT0 3700 


AWARI 

Menux 

9130 : IF E$>0 THEN POKE 48768+1%K4,E+48 
5140 : POKE 48529+I1%X4,T(14-I1)-10XE+48 

S200 : IF E<>0 THEN POKE 48768+I*4,E+48 
5210 : POKE 48769+1KX4,T(1+2)-EX10+48 

32930 : IF E<2>0 THEN POKE 48644,E+48 

3260 : FOKE 48645,T(1)-EX10+48 

93290 : FOKE 48672,E+48 

9300 : FOKE 48673,T(8)-EX10+48 

BLACK BOX 

2276 : GOSUE 1900: PRINT"'T=Tir , F=Flacement , 
E=Effacement" 

2550 : FRINT CHR$ (27); "H"3CHR$ (27) 3; "AT=Tir"; 
CHR$ (27); "H"s;CHR$(27)3"F" 

4120 : PRINT CHR$ (27); "Hs; CHRS (27); "FTaeTir "3 


CHR$# (27) 3 "Hs CHRS$ (27); "A"; 

4270 : A$="F "2: GOSUR 1900: FRINT"'T=Tir , 
PæPlacement , E-Effacement" 

4430 : PRINT" EsEffacement" 

4570 3: A$="F'": GOSUR 1900: PRINT"'T=Tir 
F=Placement , ErEffacement" 


GRENOUILLES ET CRAPAUDS 

MertLux 

2950 : IF NGENC AND JEUS (NC+1)=" " THEN NOFIN:O 
ELSE NOFINæ1 


CONJUGAISON DES VERBES 

Menux 

2260 : FRINT'CONJUGAISON DES VERBES : 1er 
GROUPE " 
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TRACE DE COURBES 
Y = F(x) 


Rien à modifier 


TRACE DE COURBES 
Y(t), X(t) 


Meriux 


TRACE DE COURBES 
Y(t), X(t) imbriquées 


Merrtu x 


SNOOPY 


à 


Rien à modifier 


DESSIN ANIME 
Rien à modifier 


LE CALENDRIER PERPETUEL 
Merntux 


RUBICK'S CUBE 
Rien à modifier 


CLASSEMENT DE CHAINES 
1080 : FRINT CHR$(27)3"A CLASSEMENT CROISSANT 
ET DECROISSANT" 


CLASSEMENT DE NOMBRES 
1080 : PRINT CHR#(27):"A CLASSEMENT CROISSANT 
ET DECROISSANT" 


DESASSEMBLEUR 6502 
Menux 


Menu* - Certaines lignes du menu de présentation devront comporter 
un nombre de "blancs" moins important, ou des mots plus courts. 


PREMIÈRE PARTIE 


JEUX D'ADRESSE 
OU DE RAPIDITÉ 
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Atterrissage forcé 


PRESENTATION 


Suite à une fuite de carburant, un avion doit se poser dans la forêt 
vierge s'il ne veut pas s'écraser. 


Il doit se ménager un terrain d'atterrissage grâce au matériel laser 
qu'il possède à bord. 


Ce matériel comprend : 


. Un laser de portée limitée mais d'autonomie infinie, 
. Un super laser vertical permettant 5 tirs, 
. Un laser horizontal permettant 4 tirs. 


Pourra-t-il se poser à temps ? 


ORGANIGRAMME DU JEU 


Le programme a £a structure A 
Le module "Début" se décompose en : 


- Affichage du menu (Présentation du jeu) 
- Initialisation du jeu 

Le module "Fin! commente le jeu et relance éventuellement une 
autre partie. 
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Le jeu a La structure suivante 











Déplacement avion 


clavier 
actionné ? 






oui 





Action clavier 


LE PROGRAMME 


Il se décompose en 4 pavés : 
Affichage du menu Lignes 1000 à 1550 
Initialisation du feu Lignes 1600 à 2050 


Module de commande Lignes 1600 à 1670 
Définition avion Lignes 1700 à 1780 
Définition terrain Lignes 1800 à 1895 
Données de parcours Lignes 1900 à 2050 
Jeu Lignes 2100 à 2890 
Module de commande Lignes 2100 à 2170 
Déplacement avion Lignes 2200 à 2290 
Commande joueur Lignes 2300 à 2390 
Avion bas Lignes 2400 à 2480 
Avion haut Lignes 2500 à 2580 
Tir Lignes 2600 à 2690 
Bombe verticale Lignes 2700 à 2790 
Laser horizontal Lignes 2800 à 2885 
Fin du jeu Lignes 3000 à 3080 


Commentaires sur la partie 
Activation éventuelle d'une nouvelle partie. 


LES VARIABLES UTILISEES 


A Définition de l'avion et du terrain 
A$ Code couleur de ligne 
Bf Acquisition clavier 


cf Une autre partie ? 
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CA 
FIN 
HL 


VG 
XP, YP 


Carburant restant 
Indicateur de fin de partie 
Laser horizontal 

Index de boucles 

Bombes verticales 


Positions de l'avion sur l'écran 


REM Atterrissage force 


GOSUR 1000 Affichage du aenu 
60SUB 1600 ’Initialisation du jeu 
60SUB 2100 ‘Jeu 

G0SUB 3000 ‘Partie terminee 


END 
LIL EE EEE EEE CEE CHER CEE CEE TELE TETE EEE 


: RE Affichage du senu 


PAPER Ô : INK 5 : PRINT CHR$(17) ’Effacement du curseur 
REM Titre 


PRINT CHRS{12) 
PRINT CHRS (4) ;CHRS (27) ;"N"; 
PRINT CHRS(27) ;"A ATTERRISSAGE FORCE" : CHRS (4) 


REN Objet 
PRINT:PRINT: PRINT 
A$="D" ’Code couleur = Bleu 
PRINT'OBJET :°*; 
60SUB 1500:PRINT"Jeu de rapidite." 


REM Job 


PRINT:PRINT 

A$="F" ’Code couleur = Cyan 

PRINT"JOB :"; 

60SUB 1500:PRINT"Vous vous trouvez dans un” 

G0SUB 1500:PRINT" avion et vous devez atterrir" 
GOSUB 1500:PRINT* d'urgence faute de carburant.” 
GOSUB 1500:PRINT" Malheureusesent,la foret vierge" 
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1780 : REN HRRSSHNNNNNATANNETNNETANTNTNTETATITAANS 


1800 : REM Tirage aleatoire du terrain d’atterissage 
1810 : 

1815 : CLS : INK 6 ’Couleur des obstacles 

1820 : FOR 1=1 TO 30 

1830 : A=INTIRND(1)49) Hauteur du terrain 

1840 : FOR J=1 TO À 

1850 : PLOT 1+3,23-J,CHR$ (126) 

1860 : NEXT J 

1870 : NEXT I 

1880 : 

1890 : RETURN 

1895 : REM HAN RRNN NIET NNRATTTNNTTITIANNIIIIT 
1900 : REM Donnees de parcours 

1910 : 

1920 : CA=1000 ‘Carburant restant 

1930 : V6=4  ’Boabes verticales 

1940 : HL=S  ’Laser horizontal 

1950 : 

1960 : FOR 1=1 TO 24 ’Positionne le curseur ligne 24 
1970 : PRINT 

1980 : NEXT I 

1990 : 

2000 : A$="C" ’Code couleur = Jaune 

2010 : GOSUB 1500:PRINT" Carburant : ";CA;" Boabes vert.: ";VG 
2020 : GOSUR 1500:PRINT" Laser horiz.: ";HL 
2030 : 

2040 : RETURN 

2050 : REN HRHNHNNNNRNNRNTANTTNRNAENNNNNTNTTTEIT 
2100 : REM Deroulement du jeu 

2110 : 

2120 : GO3UB 2200 ’Deplacenent de l’avion 

2130 :  A$=KEYS 

2140 : IF A$C)>"" THEN GOSUB 2300 ‘Commande du joueur 
2150 : IF FINC)1 THEN 60T0 2100 ‘Boucle du jeu 

2160 : 

2170 : RETURN 

2180 : REM DRRNSSNARERANANNNLENNTANTTINENRANTIAES 
2200 : REM Deplacesent de l'avion 

2210 : 

2220 : PLOT XP,YP," ":PLOT XP+1,VP," “ ’Effacement de l'avion 


2230 
on 
2240 : IF SCRN(XP+1,YP)C332 THEN FIN=1 "Collision 


IF XP=33 THEN XP=2 ELSE XP=XP+1 Gestion position de l’avi 
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1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


1340 : 


1350 
1360 
1370 
1380 
1390 
1400 


1410 : 


1420 
1430 


1440 : 
1500 : 


1510 
1520 


1530 : 
1540 : 


1550 


1400 : 


1610 
1620 


1630 : 


1640 
1650 
1660 
1670 
1700 
1710 
1720 
1730 


1740 : 





GOSUB 1500:PRINT" s’etend au desous de vous.Pour" 
GOSUB 1500:PRINT" pouvoir atterrir,il faudra La" 
GOSUB 1500:PRINT" nettoyer.Pour cela,vous avez a" 
60SUB 1500:PRINT* votre disposition 50 bombes ,* 
GOSUB 1500:PRINT" 4 lasers verticaux et 5 " 
6OSUB 1500:PRINT* horizontaux actionnables par" 
GOSUB 1500:PRINT" les touches SPACE,C et X . Les" 
G6OSUB 1500:PRINT" touches-fleches vers le bas et" 
GOSUB 1500:PRINT" vers le haut dirigent l'avion." 
REM Debut 
PRINT:PRINT 


A$="C" ’Code couleur = Jaune 

PRINT'DEBUT :"; 

60SUB 1500:PRINT'Pour commencer , appuyez sur" 
6OSUB 1500:PRINT" une touche quelconque." 
GET A$ ’Attente de l'appui sur une touche 


RETURN 
GITE CECELEEEECEEEEEEET EE EEE CEE CE EEE TER TETE 
REN Couleur d’une ligne 


PRINT CHR$ (2713 "H*:CHRS (27); A8; 


RETURN 
LA CORTE ELEC CEREETECEEEEECE TETE CEE ET! 
REN Initialisation du jeu 


6OSUB 1700 ‘Definition de l'avion 
GOSUB 1800 ‘Tirage aleatoire du terrain d’atterissage 
GOSUB 1900 Affichage des donnees de l’avion 


RETURN 
LULU CECEC CEE CE CURE ETECEE CEE CET EETE CE TEE 
REN Definition de l'avion sur les lettres Y et 1 


FOR 1=0 TO 15 
READ A:POKE 46792+1,A 
NEXT ! 


1750 DATA 0,0,0,0,32,49,63,83,0,0,0,0,0,48, 62,82 


1760 


1770 : RETURN 





2260 : 
2270 : 
2280 : 
2290 : 
2300 : 
2310 : 
2320 : 
2350 : 
2340 : 
2350 
cale 
2360 : 
ontal 
2370 : 
2380 : 
2390 : 
2400 : 
2410 : 
2415 : 
2420 : 
2430 : 
2440 : 
ion 

2450 : 
2460 : 
2470 : 
2480 : 
2500 : 
2510 : 
2520 : 
2530 : 
2540 : 
2550 : 
2560 : 
2570 : 
2580 : 
2600 : 
2610 : 
2620 
2630 
2640 : 
2850 
2660 : 
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PLOT XP,YP,"Y":PLOT XF+1,YP,"2" ‘Affichage de l’avion 
IF XP=32 AND YP=21 THEN G6=1:FIN=1 ‘Partie gagnee 


RETURN 
REN HANENNANNNSNNNNNNRENNNNITAIANTEIINT 
REN Cosmande du joueur 


ÎF ASC(A$1=10 THEN GOTD 2400 ‘Deplacesent vers Le bas 

IF ASCIA$)=11 THEN G0TO 2500 ‘Deplacement vers le haut 

IF A$=" * THEN 6010 2600 ‘Demande de tir 

IF A$="C" AND VB>0 THEN 6070 2700 ’Desande de bosbe verti 


IF A$="X" AND HL{>0 THEN GOT0 2800 ’Desande de laser horiz 


RETURN 
REN DHSNNENINANNNNNNTTAAATNATANSANNNNNTITIT 
REM Deplacesent de l'avion vers le bas 


1F YP>20 THEN RETURN 

FLOT XP,VP," ":PLOT XP+1,YP," " ’Effacesent de l’avion 
YP=YP+#1 *L’'avion descend 

IF SCRNIXP,YP)C>32 OR SCRNIAP+1,YP)C>32 THEN FIN=1 ’Collis 


PLOT XP,YP,"Y"2PLOT XP+1,YP, "2" ’Restitution de l’avion 


RETURN 
REM ARTARENNNNNNNNRTNERENRTRTRNRTTNSATILIT 
REM Deplacesent de l'avion vers le haut 


IF YP1 THEN RETURN 

PLOT XP,YP," ":PLOT XP+1,YP," “ ‘Effacenent de l’avion 
YP=YP-1 *L’avion aonte 

PLOT XF,YP,"Y":PLOT XP+1,YF,"2" ‘Restitution de l’avion 


RETURN 
CLR CETEUECE CEE CEUEE ETC EEE CE CERTES 
REM Demande de tir 


SHOOT Indique que la commande est prise en compte 
FOR 1=1 T0 8 
IF YP+1(22 THEN PLOT XP+1,YP+#1," 
NEXT ! 
CA=CA-30:1IF CACO THEN FIN=1 Gestion des ressources 
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PRINT CHR$(11);CHR$(11);" Carburant : ";CA;CHR#110) 


: RETURN 


REN SHRRERAREANERANETNNTATRTTANEINTTATET 
REN Desande de bombe verticale 


EXPLODE ’Indique que la commande est prise en cospte 
FOR 1=1 708 
IF YP+#1C22 THEN PLOT XP+1,YP+#1," ":PLOT XP,YP+1," * 
NEXT I 
CA=CA-80:V6=V6-1:1F CA(O THEN FIN=1 ’Gestion des ressource 


PRINT CHR$(11)3CHR$(11);" Carburant : ";CA:" Boabes ver 
V6; 
PRINT CHR$(10) 


RETURN 
CIRE CEE CEE CE CRC COTE TORTUE CEEE EEE EI 
REN Demande de laser horizontal 


ZAP : IF HL=0 THEN RETURN 
FOR 1=2 T0 ? 
IF XPC30 THEN PLOT XP+I,YP," " 
NEXT I 
CA=CA-50:HL=HL-1:1F CACO THEN FIN=1 ‘Gestion des ressource 


PRINT CHR$(1);CHR$(11);" Carburant : ";CA 
PRINT" Laser horiz.: ";HL 
RETURN 
REN ARERRTANEETANNRTNENNNTRTNANNTTTARAT TS 
REN Collision 


CLS : FIN=1 : PRINT CHR$(17) 
1F 6=1 THEN PRINT'Pas mal !!" ELSE PRINT"Ca devait arriver 


PRINT: PRINT: PRINT 
INPUT" Une autre partie (O/N)",B$ 
IF B$="0" THEN RESTORE:FIN=0:XP=0:YP=0:607T0 10 


RETURN 
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Mur de briques 


PRESENTATION 


Un mur de briques occupe la partie haute de l'écran. Le joueur 
déplace une raquette grâce aux touches-flèches droite et gauche. Le 
but du jeu est de détruire le mur de briques en perdant la balle 3 fois 
au maximum. 


Le score est affiché en fin de partie. 


ORGANIGRAMME DU JEU 


Après la définition de la raquette, de la balle et des briques, le jeu 
commence. || consiste en : 


. Déplacement de la balle, 
. Déplacement de la raquette, 
. Test de fin de partie. 
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IL 4e présente de La façon suivante 






LE PROGRAMME 


Déplacement balle 






action oui 


Il se décompose en 3 pavés : 


Initialisation 


Jeu 


Fin du jeu 


LES VARIABLES UTILISEES 


A$ 
B$ 


Lignes 1000 à 2550 
Présentation Lignes 
Initialisation Lignes 


Lignes 3000 à 4100 


Module de commande Lignes 
Action balie Lignes 
Démolition brique Lignes 
Action joueur Lignes 
Déplacement raquette Lignes 
Fin de balle Lignes 


Lignes 5000 à 5090 


Code couleur de ligne 

Code de déplacement raquette 
Nombre de balles utilisées 
Indicateur de fin de partie 
Index de boucles 

Score joueur 


Position balle 


1000 
2000 


3000 
3100 
3400 
3600 
3700 
4000 


clavier 
? +. | Déplacement raquette 





2000 
2550 


3060 
3360 
3490 
3650 
3860 
4100 
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Position raquette 


Vecteur de déplacement balle 
REN Mur de briques 
G60SUB 1000 ‘Presentation du jeu 
G6OSUB 2000 ’Initialisation du jeu et jeu 
60SUB 5000 ’Fin du jeu 


END 
LIU COR CEE E CETTE TEE COLE COTE CRE T ER RU TES 


: REM Presentation du jeu 


INK 5 : PAPER 0 : PRINT CHR${17) 


REN Titre 


PRINT CHR$(12) 
PRINT CHR$(4);CHR$127);"N"; 
PRINT CHR$(27); "A MUR DE BRIQUES";CHRS (4) 


REN Objet 


PRINT: PRINT: PRINT: PRINT 

A$="D" ’Code couleur = Bleu 
PRINT'OBJET : "; 

60SUB 1500:PRINT"Jeu de rapidite." 


REM Job 


PRINT:PRINT:PRINT:PRINT 

A$="F" ’Code couleur = Cyan 

PRINT"JOB : "; 

60SUB 1500:PRINT"Un œur de briques occupe la" 

G6OSUB 1500:PRINT" partie haute de l'ecran." 
60SU8 1500:PRINT" Une raquette peut se deplacer” 
GOSUB 1500:PRINT" a gauche et a droite grace aux" 
60SUB 1300:PRINT" touches-fleches." 

60SUB 1500:PRINT" Le but du jeu est de detruire" 
GOSUB 1500:PRINT" toutes les briques en faisant” 
6OSUB 1300:PRINT" rebondir la balle sur la" 
60SUB 1300:PRINT" raquette." 
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1330 
1340 


1350 : 


1380 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1300 
1510 
1520 
1530 
1540 
1550 
2000 
2010 
2020 
2030 
2040 


2050 : 
2060 : 


2070 
2100 
2110 
2120 


2130 : 


.. 


2140 : 
2150 : 
2160 : 


2170 
2180 


. 
: 





REN Debut 


PRINT: PRINT:PRINT: PRINT 

A$="C" Code couleur = Jaune 

PRINT"DEBUT : "; 

60SUB 1500:PRINT"Pour commencer , appuyez sur"; 
BOSUB 1500:PRINT" une touche quelconque." 
GET A$ ’Attente de l’appui sur une touche 


RETURN 
CITE LOC LEE LTÉE TEE EEE NET ERENTE EE ETAT 
REN Couleur d’une ligne 


PRINT CHRS(27);"H"3CHRS (27); A8; 


RETURN 
CLR COR CEECECEUTEREE UT CEUTCCE CETTE ET CET ES 
REN Initialisation du jeu et jeu 


60SUB 2100 ’Initialisation du jeu 
G60SUB 3000 ’Jeu 

6OSUB 4000 ’Balle suivante 

IF FIN=0 THEN 6070 2030 ELSE RETURN 


CLR CECECEEECCECEECEE ECC CEUELCEEECECCETEEE 
REN Initialisation du jev 


REN Dessin d’ecran 
REN Definition de la brique et de la raquette 
FOR 1=0 TO 15 


READ A:POKE 46376+1,A 
NENT ! 


2190 DATA 0,0,42,20,42, 20, 42,0 
2200 DATA 0,0,0,0,0,63,83,0 


2219 
2220 
2230 
2240 


2250 


REN Dessin des briques 


CLS 
FOR 1=1 T0 4 
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2260 : PRINT CHR$(27);"H";CHRS (27) ; CHRS (6441) ; 
2270 : FOR J=1 TO 38 

2280 : PRINT"; 

2290 : NEXT J 

2300 : NEXT ! 

2310 : 

2320 : REN Raquette 

2330 : 

2340 : XR=1:YR=20 ’Position initiale 

2350 : PLOT XR,YR,"&k&" Raquette 

2360 : 

2370 : REM Balle 

2380 : 

2390 : XB=3:YB=19 ‘Position initiale 

2400 : VA=INTRND(1)#3)-1:VY=-1 ’Vecteur direction de la balle 
2410 : 

2420 : REM Debut de la partie et effichage du score 
2430 : 

2440 : FOR I=1 TD 19 

2450 : PRINT 

2460 : NEXT I 

2465 : PRINT" Balle {":BA={:PRINT 
2470 : PRINT CHR$(27);"L"';CHR$ (27); "A"; 


2480 :  PRINT'Appuyez sur une touche pour comaencer" 

2490 : GET A$ 

2500 : PRINT CHR$(11);CHRS(14) ’Effacement du commentaire 
2510 : PRINT CHR$(11);:A$="B":G0SUB 1500 

2520 : PRINT" SCORE : "35€ 

2530 : 

2540 : RETURN 

2550 : REM HÉHANATRERERNANNNNNAETNANATNANANTTRIINE 

3000 : REN Jeu 

3010 
3020 : GOSUB 3100 ’Action sur la balle 

3030 : B$=KEV$:1F B$C>"" THEN GOSUB 3600 ’Action joueur 

3040 : IF FIN=1 THEN RETURN ELSE GOTD 3000 

3050 : 

3060 : REN SRHSNNNTERENRTNNRNTANTTATNNTANTATTTATTS 

3100 : REN Action sur la balle 

3110 : 

3120 : PLOT XB,YB," 

3130 : IF (YB4VY)CO THEN VY={:VA=INTIRND(H)43)-1 Haut de l'ecran 
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ne 





IF XB+VXC1 THEN VX=1:PLAYS,0,1,90 
IF XB+VX=39 THEN VX=-1:PLAY3,0,1,90 
IF SCRN(XB+VX,VB+VY)= 37 THEN GOSUB 3400 ‘’Demolition briqu 


IF SCRN(XB+VX,YB+VY)=38 THEN GOSUB 3300 ’Renvoi de la ball 


1F YB+#WY20 THEN G0SUB 3500 "Perte de la balle 
IF FIN=1 THEN RETURN 

IF XB4#VXC1 THEN VI=1:PLAY 3,0,1,90 

1F XB#VX=39 THEN VI=-1:PLAY 3,0, 1,90 
XB=XB+VX:YB=YB+VY:PLOT XB, VB, "0" 


RETURN 
REN ttittitantnntnnnattinnttnntnnttttntntt 
REM Renvoi de la balle 


WY=-12:VX= INT (RND (1) 43)-1 
MUSIC 2,1,5,0:PLAY 3,0, 1,200 


RETURN 
LIL CEE ECEEEE CENTER CET EEE TE TEEN EEE EEE 
REN Denclition brique 


PLOT XB4VX,YB#VY," * 


SC=6C+108(4-VB-VY):PRINTCHRS(11) 3" SCORE : "35 


VY=1:VX=INT (RND(1)43)-1 
IF 5C»1300 THEN FIN=1 ’Partie consideree cosme gagnee 
HUSIC 2,1,5,0:PLAY 3,0,1,200 


RETURN 
LUXE LEEEE EEE CENT CEE ECTS EE EEE CC ETER TETE EN 


: REN Balle perdue 


EXPLODE:FIN=1 
RETURN 
GEL COLLE EEE TE EEE EETE RCE ER CRETE EEE TETE 
REN Action du joueur 


IF ASC(B$)=8 THEN GOSUB 3700 ’Deplaceæent vers la gauche 
IF ASC(B$)=9 THEN GOSUB 3800 ’Deplacesent vers la droite 





3640 
3650 
3660 
3700 
3710 
3720 
3730 
3740 
3750 


3760 : 


3800 
3810 
3820 
3830 


3840 : 


3850 
3860 


4000 : 


4010 
4020 


4030 : 


4040 
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RETURN 
LTXRR COCECEEEE CECCEGECEUE TEE CETTE TETE TE ET 
REN Deplacement de la raquette vers la gauche 


IF XR=1 THEN RETURN 
PLOT NR#1,VR," “:AR=XR-2:PLOT XR,YR, "ke" 


RETURN 
CURE CECECOEECEEETE EE TER EEE CEE EEE EE CETTE 
REM Deplacement de la raquette vers la droite 


IF XR=35 THEN RETURN 
PLOT XR,YR," "2 XR=AR#2:PLOT XR4I,YR, "Eu" 


RETURN 
CURE CUT COCECECETUUETC ECO CETTE TER ETE ETES 
REM Fin de la balle 


BA=BA+{:IF 3A=4 THEN FIN=1:G60T0 4090 ELSE FIN=0 
PRINT CHR$(11);CHR$(11);CHR$(11);" Balle ":BA 
PRINT CHP$(27);"L";CHR$ (27); "AAppuyez sur une touche pour 


comsencer* 
4050 : 
4060 : 


4070 


4075 : 


4080 
4090 
4100 
3000 
5010 
3020 
5030 
3049 
3050 
3060 
3070 
3080 
3090 


GET A$ 

PRINT CHR$ (11) ;CHRS(14);CHRS(11): 
XB=3:YB=19:WY=-1 

PRINT: PRINT : PRINT 


: RETURN 





LISE CERCLE CC EET EEE EE TER EET EU CET EE CE CE EE! 
REN Fin du jeu 


CLS 

IF 5C>1000 THEN PRINT"Pas trop mal."ELSE PRINT'"Bof bof..." 
IF BA=1 OR BA=2 THEN PRINT'Bravo!!" 

PRINT CHR$(17) 


RETURN 
LUXE COLETEEETE EEE ET EEE EEE CECETEEREER TETE 
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Slalom ski 


PRESENTATION 


Un skieur animé d'un mouvement de translation continu est guidé 
par deux touches du clavier qui le font tourner dans le sens des 
aiguilles d'une montre ou dans le sens inverse. 


Le but du jeu est de franchir les barrières d'un slalom inventé par 
ORIC. Ce jeu demande une rapidité de prise de décision, et une faculté 
d'improvisation certaine. 


ORGANIGRAMME DU JEU 
Le programme a £a structure A. 


Une grande partie du programme est consacrée à la définition des 
caractères graphiques du jeu : barrières et positions du skieur (5 posi- 
tions de base). 


Le jeu consiste : 


. à faire avancer le skieur (translation) 
. à le faire tourner par une action clavier 
. à tester la fin du parcours. 
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Ce qui connespond à L'organigramme suivant 












LE PROGRAMME 


Déplacement 
en Franslation 


action 


Fin de 


parcours s 


oui 
clavier ? 
ME Rotation skieur 





? 


Il se décompose en 3 pavés : 


Présentation et 
Initialisation 


Jeu 


Fin de jeu 


LES VARIABLES UTILISEES 


A$ 
B$ 
Û 
FIN 
NB 


Lignes 1000 à 3420 

Module de commande Lignes 1000 à 1060 
Présentation du jeu Lignes 1100 à 1550 
Initialisation Lignes 1600 à 3420 
(Définition skieur, barrières et 

affichage du parcours). 


Lignes 3500 à 4170 

Module de commande Lignes 3500 à 3570 
Avance skieur Lignes 3600 à 4170 
L'avance skieur comporte la translation 
et la rotation. 


Lignes 5000 à 5150 
Commentaires sur le jeu 


Code couleur de ligne 
Code action clavier 

Index de boucles 
Indicateur de fin de partie 


Direction du skieur 
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S Indicateur de sortie de piste 

VX, VY Vecteurs de changement de direction skieum 
X Position d'un passage 

X1, X2, Y1, Y2 Coordonnées de la position skieur. 





REN Slalom ski 


6OSUB 1000 ‘Presentation et Initialisation 
GOSUB 3000 ‘Jeu 

GOSUB 5000 ’La partie est terainee 

IF R$="o" THEN G0T0 40 ‘Une autre partie 


END 
REN dtétittiitnttttitntittttttitinttttnitttt 
REN Presentation et Initialisation 


GOSUR 1100 ‘Presentation 
60SUB 1600 ’Initialisation 


RETURN 
LIL COUEEEEECECECEECECEECTCETEETCUEUECUE 
REM Presentation du jeu 


PAPER O0 : INK & : PRINT CHR$(17);CHR$ (20) 


REN Titre 


PRINT CHR$(12) 
PRINT CHR$(4) ;CHR$(27); "N°; 
PRINT CHR$(27);"A SLALOM SKI";CHR$(4) 


REN Objet 


PRINT: PRINT: PRINT: PRINT:PRINT: PRINT 
A$="D" ‘Code couleur = Bleu 
PRINT"OBJET :"; 

60SUB 1500:PRINT'Jeu de rapidite.” 
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1270 : REN Job 

1280 : 

1290 : PRINT:PRINT: PRINT: PRINT 

1300 : A$="F" ’Code couleur = Cyan 

1310 : PRINT'JOB :"; 

1320 : 6OSUB 1500:PRINT"Vous vous trouvez sur une" 

1330 : GOSUB 1500:PRINT" piste de ski et vous devez" 
1340 : 60SUB 1300:PRINT" effectuer un slalos en vous" 
1350 : GOSUB 1500:PRINT" servant des touches T et 1" 
1360 : BOSUB 1500:PRINT" effectuer une rotation dans le" 
1370 : GOSUB 1500:PRINT" Trigo et Inverse frigo." 
1380 : 

1390 : REN Debut 

1400 : 

1410 : PRINT: PRINT: PRINT: PRINT 

1420 : A$="C" ‘Code couleur = Jaune 

1430 : PRINT'DEBUT :"3 

1440 : G6OSUB 1500:PRINT"Pour commencer , appuyez sur" 
1450 : GOSUB {500:PRINT" une touche quelconque." 
1460 : GET A$ ’Attente de l'appui sur une touche 

1470 : 

1480 : RETURN 

1490 : REM ÉHTONÉNNRRANNLENNTENNTANSELTNNTENLIRTE 

1500 : REM Couleur d’une ligne 

1910 : 

1520 : PRINT CHR$(27);"H";CHRS (27): A$: 

1530 : 


1540 : RETURN 
1590 : REM SHNENENENRTRNRETRENENETTENENLTRTRNT 
1600 : KEN Initialisation 


1610 : 

1615: CLS 

1820 : REN Differentes positions du skieur 
1630 : 

1640 : FOR 1=0 TO 127 

1850 : READ A:POKE 46600+1,A 


1660 : NEXF I 
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1680 : REN Passages 

1690 : 

1700 : FÜR 1=0 TD 7 

1710 : READ A:POKE 46728+I,A 
1720 : NEXT I 

1730 : 


1740 : REM Donnees skieur et passages 
1750 : 

1760 DATA 3,3,1,29,19,17,17,19 
1770 DATA 32,32,0,0,0,48,12,4 
1780 DATA 4,31,0,1,0,0,0,0 

1790 DATA 36,92,20,63,4,0,0,0 
1800 : 

1810 DATA 3,3,1,1,9.7,27,51 

1820 DATA 32,32,4,28,36,4,4,0 
1830 DATA 20,24,20,2,1,0,0,0 

1840 DATA 32,16,8,0,0,0,0,0 

1850 : 

1860 DATA 3,3,1,1,31,17,21,22 
1870 DATA 32,32,0,0,60,4,20,52 
1880 DATA 20,4,4,4,0,0,0,0 

1890 DATA 20,16,16,16,0,0,0,0 
1900 : 

1910 DATA 3,3,49,45,35,35,35,7 
1920 DATA 32,32,0,0,0,48,12,12 
1930 DATA 8,16,32,1,2,0,0,0 

1940 DATA 52,36,36,0,0,0,0,0 

1950 : 

1960 DATA 32,48,40,36,62, 32, 32,32 
1970 


1980 : REM Directions en X et en Y 
1990 : 

2000 : FOR 1=1 10 5 

2010 : READ DX11) 

2020 : NEXT ] 

2030 : 

2040 FOR 1=1 T0 5 


2050 : READ DY(I) 
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2060 : NEXT I 

2070 : 

2080 DATA 1,1,0,-1,-1 Directions en X 

2090 DATA 0,1,1,1,0 Directions en Ÿ 

2100 : 

2110 : RETURN 

CURE TLR CETCCECE CE CEE CCE CEE CEE CE CEE ETTE EEE 


3010 : 
3020 : GOSUB 3100 ’Initialisation du jeu 
:  60SUB 3500 ’Deroulement du jeu 


3050 
3060 
3100 
3110 : 

3120 : REN Tirage des positions des passages 
3130 : 

3140 : FOR 1=1 105 

3130 : X=INT(RND(1)4243#9: TX (1I=X 


RETURN 
REN RESSUERARENSNTANENANTENTNNANTENTNLITST 
REM Initialisation du jeu 


3160 : NEXT 1 

3170 : 

3180 : REM Affichage du parcours 
3190 : 

3200 : CLS 

3210 : FOR 1=1 T0 5 

3220 : PLOT TX(1),(1-1)45+1,"Q":PLOT TX(1),(1-1145+4,"0" 
3230 : NEXT 

3240 : 

3250 : REM Joueur au depart 

3260 : 


3270 : X1=2:Y1=2:X2=3:Y2=3:VX= 1: VY=O:NR=1:C$="A":D$="B":ES6="C": 
F$="D" 

280 : PLOT X1,YL, "A": PLOT K2,Y1,"B":PLOT X1,Y2,"C":FLOT X2,Y2, 
2)" 

3290 : 

3300 : REM Comsentaires 
3319 : 





: RETURN 


RETURN 


5 REN DHRNRENENNRETNNITERSTNITNNTATNIINEEIS ET 







PRINT CHR$(27);"L';CHR$(27);"C salon 
FOR I=1 TO 24 
PRINT 
NEXT 1 
PRINT CHR$(27);"L";CHR$ (27); "D"; 
PRINT"pour cossencer, appuyez sur une touche" 
GET A$ 


PRINT CHR$(11);CHR$ (14) 


LIAR CECEEEERERECCEUCETOCCREEE CCE COEEENTEE 
REN Jeu 


6OSUB 3600 ’Avance skieur 
B$=KEYS:1F B$<>"" THEN GOSUB 3800 ‘Changement de direction 


IF FINC1 THEN G0TD 3500 


RETURN 
LIL COECECEECOERCRTETECEECCECETEOTE ENTER | 
REX Avance skieur 


PLOT X1,Y1," *:PLOT X2,V1," ":PLOT X1,Y2," ":PLOT 12,2," 


AA=XA VX: L2=X24VX: AZ YA ENV: V2=V24NY 

IF X1=0 OR X1=36 OR Y1=0 OR Y1=25 THEN FIN=1:6=1:60T0 1700 

IF SCRNUX1,Y1-1)=81 AND SCRNIXI,Y1+2)=81 THEN GA=GA+I:PINE 
IF X1=34 AND Y1=22 THEN FIN=1:6-0 ‘Partie finie 

IF SCRNUXI,VL)=81 OR SCRNIX1,Y2)=81 THEN EXPLODE 

IF SCRNIX2,Y1)=81 OR SCRN(12,Y2)=81 THEN EXPLODE 

PLOT X1,Y1,C$:PLOT X2,V1,D$:PLOT X1,V2,E$:PLOT X2,V2,F4 


RETURN 


REM Changement de direction 


IF B$="t" THEN G0SUB 3900 ’Sens trigo 
IF B$="i" THEN 60SUB 4000 ’Sens Inverse Trigo 
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8860 : REM KYNRRENSRETENNNERENRETNNTETTTTERTUTS 

3900 : REM Sens trigo 

5910 : 

3920 : IF NB= { THEN RETURN 

3930 : NB=NB-1:G0T0 4100 

9940 : 

3990 : REM RÉNÉRNINEENRESENNTTRÉNENETETENEATETTTT 

400 : REH Sens Inverse Îrigo 

4010 : 

4020 : IF NB=5 THEN RETURN 

4030 : NB=NB+! 

4040 : 

4050 : REN HYSHSLESETRNEREN NN ETRENTTNTEEETTIEE 

4100 : REM Fin du changement de direction 

4110 : 

4120 : WY=DXINR) : VY=DY NB) 

4130 : IF NB=5 THEN IN=65 ELSE IN=65+4${NB-1) 

4140 :  CS=CHRSCIN):D$=CHRSUIN+1):ES=CHRS(IN+2) : F$=CHRSLIN+S) 
4150 : 

4160 : RETURN 

4170 + REM HERSENSNEENNNTNN ER SEEN ENTEETENTENENÉ 

5009 : REM La partie est terminee 

5010 : 

3020 : CLS 

5030 : IF 51 THEN G0TO 5050 

5040 :  PRINT'alors comme ca, on sort des pistes !'*:6070 58û 
5050 :  PRINT:PRINT:PRINT 

5060 :  PRINT'parcours effectue avec ";5-GA;" fautelsi.” 
9076 : IF GA=5 THEN PRINT"pas mal." ELSE PRINT'ainable !!1" 
5080 : 

5090 : PRINT: PRINT: PRINT 

5100 : PRINT CHR#!17) 

510 :  INPUT'une autre partie (o/n) ":R$ 

5120 : S=0:FIN=0:6A=O:PRINT CHR$(17} 

5130 : 

3140 : RETURN 

5190 : REM HRNIRENNERANETNNTANENNENNTELENEETITEX 





DEUXIÈME PARTIE 
JEUX DE RÉFLEXION 
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Awari 


PRESENTATION 


Ce jeu de réflexion est actuellement très prisé. Il se déroule sur un 
parcours rectangulaire où vous occupez la partie basse et ORIC la pal 
tie haute. Ce parcours est divisé en cases. Chaque case contient un 
nombre. Au départ, ce nombre est 3 pour chaque case. À tour de rôk 
vous, puis ORIC, allez choisir une des cases de votre camp en la désk 
gnant par une flèche. Cette case sera forcée à #. Si son contenu ét 
N,les N cases situées en aval (dans une rotation de sens trigonoméitil 
seront incrémentées de 1. Les cases latérales constituent les totaux 
nombres déplacés. Si l'incrémentation finit sur une telle case, un nou 
veau coup peut être tenté. 


Le but du jeu est double : 


. Totaliser le plus de points possibles dans SA case résultat 
. Annuler toutes les cases de SON camp 


ORGANIGRAMME DU JEU 


Le programme a £a structure A. 
Le jeu se divise en 2 parties : 


. Joueur 
. ORIC 


Après chaque jeu, 2 tests sont à faire : 


. Vous ou ORIC pouvez rejouer ? 
. La partie est finie ? (annulation de toutes les cases). 
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L'onganigramme du feu est donc Le suivant : 





Le jeu du joueur se décompose en : 


. Affichage de commentaires sur le jeu 
. Gestion de la flèche 
. Action sur les cases 


Le jeu ORIC se décompose en : 


. Choix du meilleur coup 
. Affichage du coup joué 
. Action sur les cases 


Il peut être intéressant d'expliciter la technique employée par ORIC 
pour sélectionner le meilleur coup : 


ORIC calcule le maximum de points qu'il peut faire en une opération 
et joue ce coup là. 


D'autres techniques intéressantes peuvent être employées : 


. Calculer le coup qui élimine le plus de points dans son camp 
. Calculer le coup qui donne le plus de points possibles dans le camp 
adverse 


Si, au bout d'un moment, le jeu d'ORIC n'a plus de secrets pour vous, 
vous pouvez essayer de changer sa tactique de jeu, et même lui offrir 
la possibilité de se servir de plusieurs tactiques. 
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LE PROGRAMME 


Il se décompose en 3 pavés : 


Présentation 


Initialisation du jeu 
et jeu 


Fin du jeu 


LES VARIABLES UTILISEES 


AS 
A 
B$ 
C, D 
CASE 


JEU 
Px 
so 


Lignes 1000 à 1550 
Lignes 2000 à 5350 


Initialisation Lignes 
Module de commande Lignes 
Jeu utilisateur Lignes 
Déplacement droite Lignes 
Déplacement gauche Lignes 
Jeu du joueur Lignes 
Jeu ORIC Lignes 
Calculs et affichage Lignes 


du coup joué 


Lignes 6000 à 6160 
Commentaires sur la partie 


Code couleur de ligne 
Variable de calcul 

Lettre d'acquisition clavier 
Choix du meilleur coup 
Numéro de case choisie 
Variable d'affichage 

Nom du vainqueur 


Index de boucle 


2000 
2500 
3000 
3200 
3300 
3400 
4000 
5000 


Indicateur de jeu (joueur/ORIC) 


Position de la flèche 


Total des cases d'un des camps 


Tableau de jeu 


a @ QD 7 D y ay 


2570 
3630 
3260 
3360 
3630 
4280 
5350 
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10 : REM AWARI 

2 : 

3 : 60SUB 1000 ‘Presentation du jeu 

40: G6OSUB 2000 ’Joueur contre ORIC 

50 : GOSUB 6000 ‘1 des joueurs a gagne 

60 : 

10: END 

CORSA CEE COTELCERETERCUETES CUCEET CET CETUTE 

1000 : REN Presentation du jeu 

1010 : 

1020 : INK & : PAPER 0 : PRINT CHR$(17) 

1039 : 

1040 : REN Titre 

1050 : 

1060 : PRINT CHR$(12) 

1070 : PRINT CHR$(4);CHR$127) 5 °N"; 

1080 : PRINT CHR$(27); "A AWART";CHR$ (4) 

1090 : 

H00 : REM Objet 

110 : 

1120 : PRINT:PRINT:PRINT 

1130 : A$="D" ’Code couleur = Bleu 

1140 : PRINT*OBJET :": 

HS0 : G60SUB 1500:PRINT"Jeu de reflexion." 

1160 : 

1170 : REN Job 

1180 : 

1190 : PRINT: PRINT 

1200 : A$="F" Code couleur = Cyan 

1210 : PRINT"JOB :"; 

1220 : 6OSUB 1500:PRINT'Le but du jeu est d'annuler" 

1230 : GOSUB 1500:PRINT" le nosbre de points dans son" 
1240 : 60SUB 1300:PRINT" caap(Vous en bas,ORIC en haut)" 
1250 : GOSUB 1500:PRINT" en tenant conpte des regles :* 
1260 : PRINT:60SUB 1500:PRINT" {.Le jeu d’une case conte 
nant" 

1270 : GOSUB 1500:PRINT" n pions provoque n additions" 


Ü 
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1280 
1290 


3 
1300 


1310 
1320 
1330 
1340 


1350 : 


1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1500 
1510 


1520 : 


4€7 
id 


1540 : 


1550 


2000 : 
2010 : 


2020 
2030 
2040 
2050 
2060 
2100 
2110 
2120 
2130 





GOSUB 1500:PRINT" 
GOSUB 1500:PRINT" 


d’un pion sur les n cases " 
situees en aval {Sens trigo)." 


PRINT:60SUB 1500:PRINT" 2.Le fait que la derniere 


60OSUB 1500:PRINT" addition tosbe sur une case" 
60SUB 1500:PRINT" total’ donne le droit de” 
60OSUB 1500:PRINT" rejouer." 


REN Debut 


PRINT:PRINT 

A$="C" ’Code couleur = Jaune 

PRINT"DEBUT :"; 

60SUB 1500:PRINT"Pour cossencer , appuyez" 

GOSUB 1500:PRINT" sur une touche quelconque." 
GET ÀA$ ’Attente de l’appui sur une touche quelconque 


RETURN 
CID LUCE TCERCCPELEEE CE RCE TE CCC TEEEEERE EE 
REX Couleur d’une ligne 


PRINT CHRS 127) ;"H";CHRS 127) : AS: 
RETURN 
ÉTDIFTTEN CITE TE ELITE TENTE EE CENTER TECTE TER 


REM Deroulesent du jeu 


GOSUB 2100 *’Initialisation du jeu 
GOSUB 2500 ‘Jeu 


RETURN 


LIT COCEUTCEEECECTEEEETT RCE CTCCREUREETETTE 
REN Initialisation du jeu 


REN Definition des fleches Ÿ et 1 
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2150: FOR 1=0 T0 15 

2180:  READ A:POKE 4879241,A 
U70: NEXTI 

2180 : 

2190 DATA 0,0,34,54,28,8, 0,0 
2200 DATA 0,0,8, 28, 54,34, 0,0 


2210 : 

2220 : REN Affichage du jeu 

2230 : 

2240 : CLS 

2250 : PRINT CHR$(27);"L";CHR$# (27); "C BWARI" 
2260 : FOR [=1 T0 9 

2270 : PRINT 

2280 : NEXT 


2290 : FOR I=1 TO 1 


2300 : PRINT CHRS127);"H";CHRS(27);°T" 
20: NETI 

2320 : FORI-=0 T0! 

2330: FOR J=0 10 5 

2340 : PLOT 7+044,124146,":":PLOT 9+J84,124146,51 
2350: NET 

260: NEXTI 


2370 :  PLOT 31,12,":":PLOT 31,1 ,"i"sPLOT 5,15,48:PLOT 33,15,48 
2380 : 

2390 : DIM T{14) 

2400 : FOR I=1 TO 14 

2410 : T(1)=3 

2420 : NEITI 

2430 : T{1)=0:T(8)=0 ‘Totaux ORIC et joueur 

2440 : 

2450 : RETURN 

2460 : REN DENINETÉRRTRETELENLTENENTETNETLTTTT 
2500 : REN Jeu 

2510 : 

2520 : GOSUB 3000 ’Jeu joueur 

2524 : IF FIN={ THEN RETURN 

2525 : IF BIS=1 THEN G0TO 2520 

2530 : GOSUB 4000 ’Jeu ORIC 
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IF BIS=1 THEN GOTD 2530 
IF FIN=0 THEN G0TO 2500 


RETURN 
LIL CE CEE CTEE EURE UE CEE CEE CETTE EEE 
REN Jeu de l'utilisateur 


PLOT 9,20,"2":PX=0:B1S=0:50=0 

PLOT 1,5,"A vous de jouer" 

PLOT 1,22,"Servez vous des touches fleches droite" 
PLOT 1,23,"et gauche pour positionner la case” 
PLOT 1,24, "desiree.Appuyez sur T quand vous vous” 
PLOT1,25, "serez positionne." 

B$=KEY$:1F B$C>"" THEN B=ASC (RS) 

IF B=9 THEN GOSUB 3200 ’Deplacement vers la droite 
IF B=8 THEN G60SUB 3300 ’Deplacement vers la gauche 
IF B$="1" THEN GOSUB 3400 

IF B$="T" THEN RETURN 

G60TO 3070 


LUXE COTE LE EE COCELEEEECEEETEETEEEEEE EEE EEEE 
REM Deplacenent vers la droite 


IF PX=5 THEN RETURN 
PLOT 9+PX#4,20," ":PX=PX+1:PLOT 9+P144,20,"1":B=0 


RETURN 
LIL CHERCCHETCECCETECO NET CE CEE CECETCEEEE 
REN Deplacesent vers la gauche 


IF PX=0 THEN RETURN 
PLOT 9+PX#4,20," ":PX=PX-L:PLOT 9+PX44,20,*2":B=0 


RETURN 
CLR CECETCEETETETEUE CCE TECCL CEE ECRCE ENTER 
REN La fleche est positionnee 
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3420 : REM Effacement des inforaations inscrites sur l'ecran 


3430 : 

3440 : FOR 1=1 10 5 

3450 : PRINT CHR$(14) 

3460 : NEXT I 

3470 : FOR I={ T0 5 

3480 : PRINT CHR$(11}: 

3490 : NEXT 1 

3500 : PLOT 9+PXt4,20," " 

3510 : 

3520 : REN Calcul et affichage du coup joue 
3530 : 

3540 : JEU=0:60SUB 5000 

3350 : PLOT 1,5," 

3360 : 

3570 : FOR 1=2 T0 7 

3580 : S0=S0+T{1) 

3590 : NEXT ! 

3600 : IF 50=0 THEN FIN=1:6A=1 
3610 : 


3620 : RETURN 

3630 : REN HÉIHEEETEESNEEEEENERSNERENIEELTTTT EE 
4000 : REN Jeu d’ORIC 

4010 : 
4020 :  MAX=-100:BIS=0:SD=0 


4030 : REN Apres calcul, MAX contiendra le maxiqus 
4040 : REN de points que peut faire ORIC en { coup 
4050 : 

4060 : FOR 1=9 TO 14 

4070 : C=0:D=0 

4075 : IF T{1)=0 THEN GOTO 4140 

4080 : FOR J=1 TO T{I) 

4090 : D=1+J 

4109 : IF DC15 AND D)8 THEN C=C-1 

410 : IF D)! AND D(8 THEN C=C+! 


4120 : NEXT J 
4130 : IF COMAX THEN NAX=C:CASE=I 
4140 5 NEXTI 
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4150 
4160 
4170 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
3000 
5010 
3020 
3030 
5035 
3040 
5050 : 
5060 : 
5070 
3074 
5073 
5076 
3080 
3090 
3100 
5110 
3120 
5130 
3140 
5160 
5170 
5180 
5190 
9200 : 


e_ en en ee ee ns ne en ne ee ee ee ee en ee = 





PX=CASE-2 


PLOT 1,5,"de joue en * 
JEU=1:60SUR 5000 
PLOT 1,5," a 


FOR 1=9 T0 14 
S0=S0+T (1) 
NEXT I 
IF 50=0 THEN FIN=1:6A=0 


RETURN 
IX RE LUCE CELEECEE COLE EEE EURE LEEEEEEE ET 
REN Calcul et affichage du coup joue 


REM Calcul 


A=PX4#2:1F TA)=0 THEN RETURN 
FOR 1=1 TO T(A) 
IF A+IC=14 THEN T(A#D)2T(A#1)+#1 
IF A4DD1A THEN TUA#I-14)2TUA41-14)41 
NEXT ! 
IF A+I=9 OR A+I=16 THEN RIS=1 
TEA)=0 
1F JEU=1 THEN PLOT 9+(14-A)44,10,"Y":4AIT 100 


REN Affichage 


FOR 1=0 T0 5 
ESINT(T(14-1)/10) 
IF E(>0 THEN PDKE 48529+114,E+48 
POKE 48530+144,T(14-1)-104E+48 
NEXT 1 


FOR 1=0 T0 5 

E=INT(T(I+2)/10) 
IF EC>0 THEN POKE 48769+144,E+48 
POKE 48770+144,T(1+2)-Et10+48 
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5220 : NEXT I 
5230 : 
5240 : E=INT(T(1)/10) 
5250 : IF E(30 THEN POKE 48646,E+48 
5260 : POKE 48647,T(1)-Et10+48 
5270 
5280 E=INT(T(8)/10) 
5290 : POKE 48673,E+48 
5300 POKE 48674,T(8)-Et10+48 
5319 : 
5320 : IF JEU=1 THEN PLOT 9+(14-A)34,10," " 
5330 
5340 : RETURN 
J390 : REN HHHTRNRARENRRENANELNENTNEENINTNTATETTER 
6000 : REN Partie treninee 
6010 


6020 CLS 


6030 PRINT"Partie terainee" 

6040 PRINT: PRINT: PRINT 

6050 IF GA=1 THEN PRINT"Bravo"; 

6080 IF GA=0 THEN PRINT'Bof"; 

6070 PRINT" pour le jeu." 

6080 PRINT:PRINT 

6090 IF T(H)CT(8) THEN PRINT'Bravo"; 
6095 IF T{1)>T(8) THEN PRINT'Bof"; 
6100 PRINT" pour les points." 

6110 PRINT: PRINT 

b120 PRINT'ORIC: "3T(1)5" Vous: ":7T(8) 
6130 PRINT CHRS(17) 

6140 

6150 : RETURN 

6160 : REM RHIERRANENANARANNRATTLINTELTATINNNILLE 
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Black box 


PRESENTATION 
Trois trous noirs sont placés dans une boïte quadrillée. 


Ces trous noirs sont capables de dévier ou d'absorber la lumière issue 
d'un tube à effet laser. 


Il y aura déviation à 90° si le rayon passe dans une case située à 
côté d'un trou noir ; il y aura absorption si le rayon passe sur une 
case contenant un trou noir. 

Le but du jeu est de positionner les trous noirs en un minimum de 
coups grâce à un laser orientable. 


ORGANIGRAMME DU JEU 


Le programme a £a structure A. 
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Le jeu a La structure suivante 









Placement du trou noir 






Effacement d'untrou noir 


LE PROGRAMME 


Il se décompose en 3 pavés : 


Initialisation Lignes 1000 à 1950 
Définition des caract. Lignes 1100 à 1360 
Présentation Lignes 1400 à 1950 
Jeu Lignes 2000 à 4790 
Le jeu se décompose en 8 modules : 
Demande de tir Lignes 2500 à 2690 
Déplacement droite Lignes 2700 à 2790 
Déplacement gauche Lignes 2800 à 2890 
Déplacement bas Lignes 2900 à 2990 
Déplacement haut Lignes 3000 à 3090 
Essai laser Lignes 3100 à 3330 
Placement trou noir Lignes 4100 à 4320 
Effacement trou noir Lignes 4400 à 4600 
et six sous-modules : 
Déplac. laser gauche Lignes 3400 à 3480 
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Fin de partie 


LES VARIABLES UTILISEES 


A 
AS 
B 
BO 
B$ 
C 
co 
cf 
D 
DE 
ER 
FIN 
FF 
LE 
LI 
NF 
R 
T 
XP 
YP 


Déplac. laser haut Lignes 3500 à 3580 
Déplac. laser bas Lignes 3600 à 3680 
Déplac. laser droite Lignes 3700 à 3780 
Repères sur grille Lignes 3800 à 4020 
Test de fin de partie 


Lignes 5000 à 5080 

Tous les trous noirs ont été trouvés. 

Ce module affiche le nombre d'erreurs de 
placement et commente le jeu. 


Position du caractère entré 

Code couleur de ligne 

Position abscisse du caractère entré 
Indicateur d'absorption 

Action joueur 

Position du caractère de sortie 
Position colonne d'un trou noir 
Action joueur déplacement 

Position abscisse du caractère de sortie 
Sens de déplacement de la flèche 
Nombre d'erreurs 

Indicateur de fin de partie 
Indicateur de sortie du laser 

Code lettre entrée/sortie 

Position ligne d'un trou noir 
Indicateur de partie finie/non finie 
Tableau joueur 

Tableau ORIC 

Abscisse laser 


Ordonnée laser 
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GOSUB 1000 ‘Initialisation & Presentation 
GOSUE 2000 ‘Jeu 
GOSUB 5000 ‘Fin de la partie 


END 
REM HENHIENNSENNINTNEN ERNST 
: REN Presentation et Initislhisation 
1919 : 
1920 :  GOSUB 1100 ‘Initialisation 
GOSUB 1400 ‘Fresentation 


ÿ : RETURN 
ÿ 5 REN LÉTSEERENEEANNNNNNENENNTENTANIETENIENET 
REX Initialisation 


DIM T(4,9),R(4,9: ‘Tableaux de jeu 
REM Remplissage tableau 


FOR 1=1 TO 3 
A=INT(RND(1)#2)+2:B= INT (RND( 1) to) +2 
IF T{A,B)=1 THEN 1=1-1 ELSE T'A,B)=i 

NEXT ! 


REM Definition des fleches 


FOR 1=0 TO 39 
READ À : POKE 46808+1,A 

NEXT I 
1260 DATA 9,4,12,24,24,12,4,0 ‘Vers la droite 
1270 DATA 0,0,12,30,51,0,0,0 ‘Vers le haut 
1280 DATA 0,0,91,30,12,0,0,0 ‘Vers le bas 
1290 DATA 0,8,12,6,6,12,8,0 ’Vers la droite 
1295 DATA 8,8,8,8,8,0,0,0 ‘Trait vertical 
1300 : 
1310 : REM Position des indicateurs 
1320 : 
1330 : XP=2 : YP=7 ‘En bas à droite 
1340 : 
1350 : RETURN 
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1360 : 


1400 
1410 
1420 
1430 
1440 


1450 : 


1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 


1630 : 


1640 
1650 
1660 
1670 
1880 
1890 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 





CLR CE CECET ELEC ECO ECOUTER TERRES CE ETS 
: REN Presentation 


PAPER O : INK 5 : PRINT CHR!17) 


REN Titre 


PRINT CHR$(12) 


PRINT CHRS 14) ;CHRS (27) ;"N"; 


PRINT CHR$(27);"A 


REN Objet 


PRINT: PRINT: PRINT 


BLACK ROX";CHR# 14) 


A$="D" ’Code couleur = Bleu 


PRINT'OBJET : "; 


60SUB 1900:PRINT"Jeu de reflexion." 


REN JOB 


PRINT: PRINT 


A$="F" Code couleur 


PRINT'JOB : *; 


Cyan 


G60SUB 1900:PRINT"Une boite noire renferme" 


GOSUB 1900:PRINT" 
6OSUB 1900:PRINT" 
GOSUB 1900:PRINT" 
GOSUB 1900:PRINT" 
GOSUB 1900:PRINT" 
GOSUB 1900:PRINT* 
GOSUB 1900:PRINT" 
6OSUB 1900:PRINT" 
GOSUB 1900:PRINT" 
GOSUB 1900:PRINT" 
GOSUB 1900:PRINT" 
6OSUB 1900:PRINT" 
GOSUB 1900:PRINT" 


REN Debut 


PRINT: PRINT 


3 trous noirs capables de" 

devier ou d’absorber le rayon 

issu d'un tube à effet laser" 

selon les 2 lois suivantes :" 
\\" 


Deviation “ 

[-- ee 1° 
è ou "90" 

{-- mat \'" 


A$="C" Code couleur = Jaune 


PRINT"DEBUT : *; 


1810 
1820 
1830 
1840 
1850 
1860 
1900 
1910 
1920 
1930 


1940 : 


1950 : 


2000 
2010 


2020 : 


2030 
2040 


2050 : 
2060 : 


2100 : 


2110 : 
2120 : 


2130 


2140 : 


2150 


2160 : 
2170 : 
2180 : 
2190 : 
2200 : 


2210 
2220 


2230 : 
2240 : 
2250 : 
2260 : 
2270 : 
2271 : 
2272 : 
2273 : 


2274 : 


2275 
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GOSUB 1900:PRINT"Pour commencer , appuyez sur"; 
GOSUB 1900:PRINT" une touche quelconque." 
GET A$ ‘Attente de l’appui sur une touche 


RETURN 
LINE CCEEL CE COPEEEEEETEETECETE CE TEEE TETE 
REM Couleur d’une ligne 


PRINT CHR$(27);"H";CHRS (27) ;A$; 


RETURN 
REN KE2TNNERETSENTANLENNNARNENATANIENTIANT 
REM Jeu 


GOSUR 2106 ‘Initialisation du jeu 
G60SUB 2400 ‘Deroulenent du jeu 


RETURN 
LISTER CEESTECCEETEUR CRTC OR CRE CRUE EE 
REM Initialisation du jeu 


REN Titre 


CLS : INK 6 ‘ 
PRINT CHR$(27);"L"3;CHR$ (27): °C BLACK  BOX* 


REN Affichage de la grille du jeu 


FOR I=t T0 5 
FOR J={ TO 10 
PLOT 8+24J,6+241,"." 
NEXT J 
NEXT I 


REN Affichage des commandes 


FOR 1=1 TO 10 

PRINT CHR$(10) 
NEXT 1 
A$="F" ’Code couleur = Cyan 
GOSUB 1900:PRINT"  Cosnandes :" 
PRINT 
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2276 : 
2290 : 
2300 : 
2310 : 
2320 : 
2330 : 
2340 : 
2350 

2360 


2410 
2420 
2430 





GOSUB 1900:PRINT"  T=Tir , P=Placement , E=Effacenent" 


REN Position de la fleche 


PLOT 11,17,"\" 
XP=2 : YP=7 'En bas à gauche 


: RETURN 
5 REM tattittanettnnttntentintentttatiattattt 
2400 : REN Deroulement du jeu 


GET B$ 
IF B$="T" THEN GOSUB 2500 


2435 FF=0:B0=0 


2440 : 
2450 : 
2460 : 
2470 : 


IF B$="P" THEN GOSUB 4100 
IF B$="E" THEN GOSUB 4400 
IF FINC>1 THEN 60T0 2400 ‘Le jeu continue 


2480 : RETURN 
2490 : REM DHRINNNTENNTRTNNENNNTANNNTAANNTANATET 
2500 : REM Desande de tir 


2510 : 
2520 : 
2530 : 
2540 : 
2550 : 
(27)3;"F" 
2560 : 
2570 : 
2580 : 
2590 : 
2600 : 
2610 : 
2620 : 
2630 : 
2640 : 
2650 : 
2660 : 
2670 : 
2675 : 
2680 : 


REN Affichage de la consande 


PRINT CHRS(11);CHRS(11) 
PRINTCHRS (27);"H"3;CHRS(27)5;"A  T=Tir*;CHRS(27) ;"H";CHRS 


PLOT 0,3," Serve:-vous des touches-fleches pour" 
PLOT 0,4," positionner l’origine du tir." 
PLOT 0,5," La touche T cosmande le tir." 


REN Positionnement de l’origine du tir 


GET C$ 

IF ASC(C$)=9 THEN GOSUB 2700 
IF ASC(C$)=8 THEN GOSUB 2800 
IF ASC(C#)=10 THEN GOSUB 2900 
IF ASC(C$)=11 THEN GOSUB 3000 
IF C$C>"T* THEN 60TO 2620 
GOSUB 3100:RETURN 
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FIXES LR CECECELEE CET EEE E CE CEEEECEEC EE CEE EEE EC 
2700 : REM Deplacesent vers la droite desande 
2710 


2720 : IF XP)9 OR YP=1 OR YP=4 OR YP=5 THEN RETURN 
2730 :  C=SCRN(XP#2+7,YP4243) "Sauvegarde de la fleche 
2740 :  PLOT XP#2+7,YP4243," * 

2730 : IF YP=3 THEN YP=YP-1:C=A6C ("1") 

2755 : IF YP=6 TMEN YP=YP+1:C=ASC("\") 

2760 :  XP=XP#L:PLOT XP#2+7,VP#2+3,C 

2770 : 

2780 : RETURN 

2790 : REN HHH0420N Nana ta ln antatataattt sat 
2800 : REN Deplacesent vers la gauche 

2810 : 

2820 : IF XPC3 OR YP=1 OR YP=4 OR YP=5 THEN RETURN 
2830 :  C=SCRNIXP#2+7,YP42+3) Sauvegarde de la fleche 
2840 :  PLOT XP42+7,YP4243," * 

2845 : IF YP=3 THEN YP=YP-1:C=ASC("]") 

2850 : IF VP=6 THEN YP=YP+1:C=ASC("\") 

2860 :  XP=AP-1:PLOT XP4247,YP42+43,C 

2870 : 

2880 : RETURN 


2890 : REM d8t4tttttntinnntantatitaitnttatttst 
2900 : RE Deplacesent vers le bas 
2910 : 

2920 : IF VP>5 OR (XPC)1 AND XPC)2 AND XPC>10 AND XP<>11) THEN RE 
TURN 


2930 :  C=SCRN(XP42+7,VP42+43) * Sauvegarde de la fleche 
2940 : PLOT XP42+7,YP42+3," 

2945 : IF XP=10 THEN XP=XP+1:C=ASC("[") 

2950 : IF XP=2 THEN XP=XP-1:C=ASC("*") 

2955 : IF XP=10 THEN YP=XP+1:C=ASC("L") 

29b0 :  YP=VP+#L:PLOT XP#2+7,YP42+3,C 

2970 : 

2980 : RETURN 

2990 : REN SHRRRN RER TTTRATTIAILIEIT 

3000 : REM Deplacesent vers le haut 

3010 : 

3020 : IF YP<4 OR (XPC>1 AND XP€32 AND XP€>10 AND XPC)>11) THEN RE 
TURN 

3030 C=SCRN(XP42+7,YP42+3) Sauvegarde de la fleche 


3040 : PLOT XP4247,YP4243," * 
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3050 
3055 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 


3230 


3235 : 


3240 


3250 : 


3260 
3270 


3280 : 
3290 : 
3300 : 


3310 


3320 : 
3330 : 


se se … eee 


3400 : 


3410 
3420 
3430 


- 3440 
3450 : 
3460 : 
3470 : 


3480 : 


3500 





IF XP=2 THEN AP=ÂP-1:C=ASC("*") 
IF XP=10 THEN XP=XP+1:C=ASC(*L") 
YP=YP-1:PLOT XP#2+7,YP#243,C 


RETURN 
LIRE CUELCECE COCO ET TETE TETE SEE TRUE ES 
REM Demande d'essai laser 


REN Effacement des indications ecran 


FOR I=1 70 21 
PRINT CHR${11); 
NEXT I 
FOR 1=1 T0 3 
PRINT CHR${14) 
NEXT ! 
FOR 1=1 TO 17 
PRINT CHR$(10); 
NEXT I 
A$="F":60SUB 1900 
PRINT CHR${10); 


REM Calculs de la sortie du laser 


DE=SCRN(XP42+7,YP#243)-90 ’DE=Sens du deplacement 
X=YP-2: Y=XP-1 

ON DE GOSUB 3400,3500, 3600, 3700 

IF FF<31 AND BOC>1 THEN 6070 3290 ‘Boucle de recherche 
GOSUB 3800:RETURN 


CUT CE CRUEL COTE LEP CEET ER CE CENTER ELTET ES 
REN Deplacement du laser vers la gauche 


Y=Y-121F Yé=0 THEN Y=0:FF=1:RETURN 
IF X€1 THEN IF TUX-1,V-1)=1 THEN DE=3 ‘Vers le bas 
IF XC34 THEN IF T(X#1,Y-11=1 THEN DE=2 Vers le haut 
IF T{X,Y-1)=1 THEN BO={ ‘Absorbtion 


RETURN 
REM XÉREEÉINNENENSEENEENEENTENNENNENTENTENT 
REM Deplacement du laser vers Le haut 





3520 : 
3530 : 
3540 : 


3550 : 


3360 : 


3570 
3580 
3600 


3610 : 


3620 : 
3630 : 


s 


3640 : 


3650 
3660 
3670 
3680 


3700 : 


3710 
3720 


3730 : 
3740 : 


3750 
3760 
3770 
3780 
3800 
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X=X-1:1F X€=0 THEN X=0:FF=1:RETURN 

IF YC{ THEN IF T{X-1,Y-1)=1 THEN DE=4 ’Vers la droite 
IF YC)9 THEN IF T(Y-1,Y+1)=1 THEN DE=1 

IF T(X-1,Y)21 THEN BO={ ’Absorbtion 


RETURN 
REN RÉSTEREINNEENNETENNENNNERTNNTEINNENNTE 
REM Deplacenent du laser vers le bas 


X=X+12IF X2=4 THEN X2=S:FF=1:RETURN 
IF YO THEN IF T{N+1,Y-1)21 THEN DE=4 Vers la droite 
IF YC)9 THEN IF T{X+1,Y+1)=1 THEN DE={ Vers la gauche 
IF T{X+1,Y)=1 THEN BO=1 ’Absorbtion 


RETURN 
CLR COTE CE EELECET EEE CEE CCE EEE EEE CEEEEE EEE 
REN Deplacesent du laser vers la droite 


Y=Y+121F Y)=9 THEN Y=10:FF=1:RETURN 
IF XCO1 THEN IF T{X-1,Y+1)=1 THEN DE=3 ‘Vers le bas 
IF XC4 THEN IF T{X+#1,Y+1)=1 THEN DE22 ’Vers le haut 
IF T{X,Y+1)=1 THEN BO=1 ’Absorbtion 


RETURN 


CRE LEVÉE CECE CEE CET EEEEEC TEE EE COTE EEE 


3810 : 


3820 : 
3830 : 
3840 : 
3850 : 


3860 


3870 : 


3880 


3885 : 
3886 : 


3870 
3900 


3910 : 


3920 : 


3925 


: REM Placement des reperes Entree/Sortie sur la grille 


IN=K+2:X=Y+L:Y5IN 
A=XP42+7:B=YP42+3:C=X4247: D=Y#2+3 


IF YP=7 THEN B=B+1 ELSE B=B-1 
IF Y=7 THEN D=D+1 ELSE D=D-! 
IF XP=11 THEN A=A+I:B=B+1 

IF X=11 THEN C=C+1:D=D+1 

IF XP=1 THEN B=B+1:A=A-1 

IF X=1 THEN D=D+1:C=C-1 


REM Affichage de l’entree 


LESLE+! ‘Lettre + 1 
IF LE=27 THEN FIN=1:NF=1:RETURN 
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3930 : PLOT A,B,CHRS(LE+64) 

3940 : 

3950 : REM Affichage eventuel de la sortie 

3960 : 

3970 : IF BO=1 THEN B0=1:FF=0:RETURN 

3980 : PLOT C,D,CHRS(LE+96) 

3990 : 

4000 : FF=0 : RETURN 

4010 : 

4020 : REM HRETRRANNATANTANTTTNN TAN TANNTITATIATR 
4100 : REM Placement d’un trou noir 

4110 : 

4115 s TN=TN#I:PRINT CHR$(11); 

4120 : PRINT CHR$(27)1;"H":CHRS(27):"F  Telir ";CHRS(27);"H";CHRS 
{27)3;"A"; 

4130 :  PRINT'P=Placenent";CHR$(27);"H";CHR$(27);"F" 
4140 : 

4150 : FOR I={ TO 20 

4160 : PRINT CHR${11); 

4170 : NEXTI 

4180 : PRINT CHR$(17);: INPUT" Ligne";L 
4190 : INPUT " Colonne";CO:PRINT CHR$(17); 
4200 : 

4210 :  PLOT COt2+9,L142+7,"9":RILI,CO)=1 

4220 : 

4230 :  PRINTCHRS{11):CHR$ (14); CHRS(11) ;CHR$ (14) 
4240 : FOR I=1 T0 9 

4250 : PRINT CHR${10) 

4260 : NEXTI 

4270 : A$="F":G0SUR 1900:PRINT"  T2Tir , P=Placenent , E=Effecem 
ent" 

4280 : 

4290 :  GOSUR 4700 

4300 : 

4310 : RETURN 

4320 : REM HHSDNERANANTNNRANRNNENNENENN NEA) 


4400 
4410 
4420 


+ REN Effacesent d’un trou noir 


5 PRINT CHR$(11);"  T=Tir , P=Placement":CHR$# (27); "H";CHRS( 


27)3"4"; 
4430 
4440 


5 PRINT "E=Effacesent" 


: 
: 
: 
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FOR 1=1 10 20 
PRINT CHR$(11); 
HEXT 
PRINT CHR$(17)3;: INPUT" Ligne";Ll 
INPUT Colonne";CO:PRINT CHR${17); 


PLOT C042+9,L14247," ":RILI,C0)=0 
PRINTCHRS (11) ;CHR$ (14); CHRS (11) ;CHRS (14) 


FOR 1=1 T0 9 
PRINT CHR$(10) 


NEXT I 
A$="F":60SUB 1900:PRINT"  T=Tir , P=Placement , E=Effacesent" 


GOSUB 4700 


: RETURN 
LT CECEL CE CEE CEETECETEUTEC TETE TEE ETER CT 
REM Test de fin de partie 


FOR 1=1 TO 4 

FOR J=1 T0 9 

IF T(I,J)=R(1,J) THEN W=W+1 

NEXT J 
NEXT I 
IF W=36 THEN FIN=1:ER=TN-3 
W=0:RETURN 
2 REN SRÉRRRNENNNNERNANERANNENNNNNEANATTENTTT 
REN Fin de la partie 


CLS 

IF ER=0 AND NF=0 THEN PRINT"Parcours sans faute.Bravo!!." 
IF ERC>0 THEN PRINTER; "Erreurs de parcours." 

IF NF=1 THEN PRINT"Partie non finie !! Pas de chance ." 
PRINT CHR$(17) ’Restitution du curseur 


CAL TRE CELCE TEE T CES EETE CCE TEE EEE TENTE TE NTETES 
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Grenouilles et crapauds 


PRESENTATION 


N crapauds se trouvent séparés de N grenouilles par une case vide. 
Les crapauds sont à gauche, les grenouilles à droite. Le but du jeu est 


d'amener tous les crapauds à droite, et toutes les grenouilles à gauche 
en respectant les 4 règles suivantes : 


. Les crapauds ne peuvent se déplacer que vers la droite 

. Les grenouilles ne peuvent se déplacer que vers la gauche 

. Un crapaud peut sauter par-dessus une grenouille si la case située 
à sa droite est libre 


. Une grenouille peut sauter par-dessus un crapaud si la case située 
à sa gauche est libre 


ORGANIGRAMME DU JEU 


Le jeu est initialisé par la saisie du nombre de crapauds. Le tableau 
de jeu est constitué et affiché, puis le jeu démarre. 
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Saisie déplacement 













Gpérafion 
possible ? 
















opération 
possible è 








LE PROGRAMME 


Il se décompose en 3 pavés : 


Initialisation Lignes 1000 à 1800 
Module de commande Lignes 1000 à 1050 
Règle du jeu Lignes 1100 à 1540 
Initialisation du jeu Lignes 1600 à 1800 
Jeu Lignes 1900 à 2970 
Module de commande Lignes 1900 à 1950 
Déplacement Lignes 2000 à 2320 
Affichage du jeu Lignes 2400 à 2970 
Fin du jeu Lignes 3000 à 3040 


Commentaires sur le jeu 


LES VARIABLES UTILISEES 


A$ Code couleur de ligne 
COUPS Nombre de coups 
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DE$ Code de déplacement 

1 Index de boucles 

JEUS Tableau de jeu 

NC Nombre de crapauds 

NG Nombre de grenouilles 
NER Nombre d'erreurs 

PTR Indicateur de déplacement 


REN Grenouilles et Crapauds 


60SUB 1000 ’Initialisation 

GOSURB 1900 * Traitement 

GOSUB 3000 ’Fin 

END 

GIE CETE EEE EC CECOREE ESC EUCCRECERTEUREEE 
REN Initialisation 





: GOSUB 1100 ’Regle du jeu 
1030 : GOSUB 1600 Dimension du jeu 
: RETURN 
OL LR L'ECE COR COLE ED CE TE TEE TERRE EE TETE EEE EEE 
: REN Regle du jeu 


: PAPER O:INK 5 
: REN Titre 
1140 3 PRINT CHR$(12);CHR$ (4) 
5 PRINT CHRS(27)3;"N";CHR$ (27); "A GRENQUILLES ET CRAPAU 


PRINT CHR$ (4) 
REM Objet 


1190 
1200 


PRINT:PRINT 
A$="D":PRINT'OBJET :"3 
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1210 :  GOSUB 1500:PRINT'Jeu de reflexion" 

1220 : REN Job 

1230 : 

1240 : PRINT 

1250 3 A$="F':PRINT'JOB :"; 

1260 : GOSUB 1500:PRINT"Les crapauds sont definis par"; 

1270 :  GOSUB 1500:PRINT" la lettre C , les grenouilles"; 
1280 : GOSUB 1500:PRINT" par la lettre 6 ." 

1290 :  GOSUB 1500:PRINT" Le but du jeu est d'amener en"; 
1300 :  GOSUB 1500:PRINT" un siniaur de coups les” 

1310 :  GOSUB 1500:PRINT" crapauds a droite et les" 

1320 : GOSUB 1500:PRINT" grenouilles à gauche .” 

1330 : GOSUB 1500:PRINT" Restrictions : Un crapaud" 
1340 :  GOSUB 1500:PRINT" peut se deplacer d’{i case " 
1350 :  GOSUB 1500:PRINT" vers la droite si elle est " 
1360 :  GOSUB 1500:PRINT" librelDC).11 peut egalement" 
1370 :  GOSUB 1500:PRINT" sauter par dessus une 

1380 : GOSUB 1500:PRINT" grenouille si la case situee" 
1390 :  GOSUB 1500:PRINT" a sa droite est libre(SC)." 
1400 :  GOSUB 1500:PRINT" De #ese pour une grenouille ,"; 
1410 :  GOSUB 1500:PRINT" mais vers la gauche(D6 et 56)"; 
1420 : REM Debut 

1430 : 

1440 : PRINT 


1450 :  A$="C':PRINT"DEBUT :": 

1460 GOSUB 1500:PRINT"Pour commercer , appuyez sur" 
1470 :  G60SUB 1500:PRINT" une touche quelconque ." 
1480 : GET A$:RETURN 

1490 : REM SHENNERR RENTRER TN TTENTTNRTETS 

1500 : REN Couleur d’une ligne 

1510 : 

1520 : PRINT CHR$(27) ;"H";CHRS (27); A$; 

1530 : RETURN 

EL UORTALR CEUTES COUECLCE CREER CET EE CTERCERCEETEE 

1600 : REM Dimension du jeu 

1610 : 
1620 : 


CLS ’Effacesent de l'ecran 


LE : PRINT:PRINT: PRINT: PRINT: PRINT 
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1640 : 
1650 
1660 : 
1470 : 
1680 : 
1690 : 
1700 
1710 
1720 
1730 : 
1740 : 
1750 : 
1760 : 
1770 : 
1780 : 
1790 : 
1800 : 
1900 : 
1910 : 
1920 : 
1930 : 
1940 : 
1950 : 
2000 : 
2010 : 
2020 : 
2030 : 
2040 
2050 
2060 
2070 : 
2080 
2090 
2100 
2119 : 





INPUT"Noanbre de crapauds";NC 
DIM JEUS(24NC+1) 
REN Constitution du tableau 
FOR 1=1 TO NC 
JEU$(1)="C" 
NEXTI 
JEUS(NC+1)=" * 
FOR I=NC+2 TO NC#2+1 
JEUS(1)="6" 
NEXT ! 
REN Affichage 
PRINT: PRINT:PRINT 
FOR 1=1 TO NC#2+#1 
PRINT JEUS(1); 
NEXT 1 
RETURN 
REN tttititiittittntantianittatttttnitttitt 
REN Traitesent 


GOSUB 2000 Deplacenent 
GOSUB 2900 ’Fin de partie 
IF NOFIN=1 THEN G60TO 1900 
RETURN 
REX Deplacesent 


INPUT" Deplacenent";DE$:PTR=-1: COUPS=COUPS+1 
IF DE$C)>"DC" THEN GOTO 2090 
FOR 1=1 TO NCI2 
IF JEUS(I)="C"THEN IF JEUS(I+1)=" "THEN PTR2I 
NENT I 
IF PTR=-1 THEN GOSUB 2300:RETURN 
JEUS(PTR)=" ":JEUS(PTR+1)="C":60SUB 2400:RETURN 
IF DE$(>"SC" THEN GOTO 2150 
FOR 1=1 TO NC#2-1 
IF JEUS(1)="C"THEN IF JEUS(I+1)="G"THEN IF JEUS(I+2)=" "TH 


EN PTR=I 


2120 : 
2130 : 


NEXT ! 
IF PTR=-1 THEN GOSUB 2300:RETURN 





2140 
2150 
2180 
2170 


2180 : 


2190 
2200 
2210 


2220 : 
2230 : 
EN PTR=I 


2240 
2250 
2260 
2300 
2310 
2320 
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JEUS(PTR)=" ": JEUS (PTR+2)="C":G0SUB2400: RETURN 
IF DE$(>"DG" THEN G0TO 2210 
FOR I=NC#2+1 TO 2 STEP -1 
IF JEUS(I)="6"THEN IF JEUS(I-1)=" "THEN PTR:I 
NEXT I 
IF PTR=-1 THEN GOSUB 2300:RETURN 
JEUS(PTRI=" ":JEUS(PTR-1)="G"e60SUB 2400:RETURN 
IF DE$(>"S6* THEN GOTO 2300 
FOR I=NC#2+1 TO 3 STEP -1 
IF JEUS(T)="G"THEN IF JEUS(I-1)="C"THEN IF JEUS(I-2)=* TH 


NEXT I 

IF PTR=-{ THEN GOSUB 2300:RETURN 

JEUS(PTRI=" ":JEUS(PTR-2)="6":G0SUR 2400:RETURN 
PRINT"Deplacement inaccepte" 

NER=NER+I 

RETURN 


2330 : REM HERTÉERERENNENNRENERENETNERENETEITT 
2400 : REN Affichage du jeu 


2410 
2420 
2430 
2440 
2450 
2900 


2905 : 


2910 
2920 


FOR 1=1 TO NCH2+1 
PRINT JEUS{I); 

NET 1 

RETURN 


: REN Fin de partie 


2930 : 


2940 


2950 : 


2960 


N6=0 *RAZ Variable fin de jeu 


FOR 1=1 TO NC 
IF JEUS(I)="G" THEN NG=NG+ 
NEXT I 


IF NG=NC THEN IF JEUSINC+1)=" “ THEN NOFIN=0 ELSE NOFIN=1 
RETURN 


2970 : REN DRESRERNENTRLENISESTTRRNETTENENENNENT 
3000 : REN Fin de partie : SCORE 


3010 


3020 : PRINT:PRINT'Partie terainee en ";COUPS; "coups .* 
3030 : PRINT'avec ":NER;"erreurts) .° 
3040 : RETURN 
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Conjugaison des verbes 


PRESENTATION 


Même si la conjugaison des verbes du premier groupe n'a plus de 
secrets pour vous, vous feriez peut-être bien de jeter un coup d'oeil à 
ce didacticiel (logiciel à usage didactique). 


Après avoir entré le temps de conjugaison (Présent, imparfait, Passé 
Simple, Futur simple, Plus-que-parfait, Passé antérieur, Futur antérieur, 
ou Passé composé), ORIC vous demande le verbe à conjuguer à l'infini- 
tif. 


Vous conjuguez le verbe choisi, puis, ORIC vous indique les fautes 
s'il y a lieu (il vous invite alors à recommencer). 


ORGANIGRAMME DU JEU 


Le programme a £a structure A. 
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la conjugaison a La structure suivante 


Lecture temp 


et terminaisons 















Affichage 
menu ef choix 


autre 
con ju gaison ? 


LE PROGRAMME 


Il se décompose en 3 pavés : 


Présentation Lignes 1000 à 1550 

Initialisation et Lignes 2000 à 2995 

conjugaison Initialisation Lignes 2000 à 2220 
Affichage menu Lignes 2230 à 2400 
Verbe à conjuguer Lignes 2410 à 2500 
Conjugaison Lignes 2510 à 2680 
Recherche erreurs Lignes 2700 à 2790 
Affich. résultats Lignes 2800 à 2995 

Fin de conjugaison Lignes 3000 à 3060 


LES VARIABLES UTILISEES 


AS Code couleur de ligne 
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FX 
1,J 
NF 
RS 
RES 
T$ 
TES 
vs 


10 : 
20 

30 

40 

50 

60 

70 

80 
1000 : 
1010 : 
1020 : 
1030 : 
1040 : 
1050 : 
1060 : 
1070 : 
1080 : 
4) 
1090 : 


Temps de la conjugaison 

Tableau des fautes 

Variables de boucles 

Nombre de fautes 

Réponse à "vous corrigez (O/N) ?" 
Conjugaison du verbe à une des personnes 
Tableau des temps proposés 
Terminaisons de chaque temps 


Verbe à conjuguer 


REN Conjugaison des verbes du ler groupe 


GOSUB 1000 ’Presentation du programme 
GOSUB 2000 Conjugaison 
GOSUB 3000 ’Fin de conjugaison 


END 
REN tttitttitnnttntnnntnnsntttittnttattnttt 
REX Presentation 


PAPER 0 : INK 5 : PRINT CHR$(17) : DIN TE$(48) 


REN Titre 


PRINT CHR$ (12) 
PRINT CHRS (4) ;CHR$ (27); "N"; 
PRINT CHRS(27);"A CONJUGAISON DU PREMIER GROUPE": CHRS ( 
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1100 : REM Objet 

1110 : 

1120 : PRINT: PRINT: PRINT: PRINT: PRINT 

1130 : A$="D" ’Code couleur = Bleu 

1140 : PRINT"OBJET :"; 

1150 : 60SUB 1500:PRINT"Test de connaissances." 


1160 : 

1170 : REN Job 

1180 : 

1190 : PRINT: PRINT:PRINT: PRINT 

1200 : A$="F" ’Code couleur = Cyan 

1210 : PRINT"JOB :"; 

1220 : G60SUB 1500:PRINT"Ce didacticiel permet de" 

1230 : GOSUB 1500:PRINT" tester vos connaissances" 
1240 : BOSUB 1500:PRINT" actuelles dans la conjugaison" 
1250 : GOSUB 1500:PRINT" des verbes du {er groupe." 
1280 : GOSUB 1500:PRINT" En cas de faute,ORIC vous" 
1270 : GOSUB 1500: PRINT" corrigera." 

1280 : 

1290 : REN Debut 

1300 : 

1310 : PRINT: PRINT:PRINT:PRINT 

1320 : A$="C" ‘Code couleur = Jaune 

1330 : PRINT" Debut :"; 

1340 : GOSUB 1500:PRINT'Pour cosmencer appuyez sur" 

1350 : GOSUB 1500:PRINT" une touche quelconque." 
1380 : 

1370 : GET A$ ‘Attente de l'appui sur une touche 

1380 : 

1390 : RETURN 

1400 : REN HERDE SNS ETRITNTTNTATTTNRNTTINTIENT 

1500 : REN Couleur d’une ligne 

1510 : 

1520 : PRINT CHR$(27);"H"3;CHR$(27); A$; 

1530 : 


1540 : RETURN 
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1990 : REN DARRERRINRNNENNNNRENNNNAANTINTANENLINLE 
2000 : REM Conjugaison 

2010 : 

2020 : CLS : INK & : PRINT CHR$ (20) 

2030 : 

2040 : REM Lecture des donnees 

2950 : 

2070 : FOR I=1 TO 48 

2089 : READ A$:TE$(I)=A$ 


2090 : NEXT I 

2100 DATA "e","es","e","ons","ez", "ent" 

2110 DATA "ais","ais","ait","ions","iez","aient" 
2120 DATA "ai","as","a","ases","ates","erent” 

2130 DATA "erai","eras","era","erons","erez","eront! 
2140 DATA "j’avais","tu avais","il avait" 

2150 DATA "nous avions”, "vous aviez”,"ils avaient" 
2160 DATA "j’eus”,"tu eus","il eut” 

2170 DATA "nous euses”, "vous eutes”","ils eurent 
2180 DATA "j’aurai","tu auras","il aura" 

2190 DATA "nous aurons", "vous aurez","ils auront" 
2200 BATA "j’ai","tu as","il a" 

2210 DATA "nous avons" ,"vous avez","ils ont" 


2211 : 

2212: FOR I=1 T0 6 
2213 : READ T$(1) 
2214 : NEXT 


2235 DATA "Present" ,"Iaparfait", "Passe siaple","Futur siaple" 
2216 DATA ‘Plus que parfait","Passe anterieur”,"Futur anterieur" 
2217 DATA "Passe conpose" 


2220 : 

2230 : REN Menu" 

2240 : 

2250 : CLS:PRINT CHR$127)3"L";CHR$ (27); "A"; 

2260 : PRINT"CONJUGAISON DES VERBES DU ler GROUPE" 
2270 : PRINT:PRINT:PRINT 

2280 : PRINT'Quel teaps desirez vous conjuguer ?° 
2290 : PRINT: PRINT 





2300 : 
2310 : 
2320 : 
2330 : 
2340 : 
2350 : 
260 : 
2310 : 
2380 : 
2390 : 
2395 : 
2400 : 
2410 : 
2420 : 
2430 : 
2440 : 
250 : 
2440 : 
2470 : 
2480 : 
2490 : 
2500 : 
2510 : 
2520 : 
2580 : 
2390 : 
2600 : 
2410 : 
2820 : 
2630 : 
2649 : 
2650 : 
2460 : 
2870 : 
2680 : 
2700 : 
2710 : 
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PRINT:PRINT®  - (1) Present” 
PRINT:PRINT" - (2) Iepartait* 
PRINT:PRINT"  - (3) Passe siaple* 
PRINT:PRINT"  - (4) Futur siaple" 
PRINT:PRINT"  - (5) Plus que parfait" 
PRINT:PRINT" - (6) Passe anterieur* 
PRINT:PRINT" - (7) Futur anterieur* 
PRINT:PRINT" - (8) Passe cospose" 
PRINT CHR$(17) 

PRINT: INPUT"Entrez votre choix";C 

IF C>8 OR CCI THEN 2230 


REM Entree du verbe a conjuguer 


CLS 

A$="B":GOSUB 1500 

PRINT'Entrez le verbe a conjuguer :* 

PRINT: INPUT V$ 

IF RIGHT$(V$,2) = “er THEN GOTD 2500 
PRINT:PRINT:A$="A":G0SUB 1509 

PRINT"Ce n’est par un verbe du ler groupe !!":60T0 2440 


REN Conjugaison 


CLS:A$="A":60SUB 1500 


PRINT" Conjugaison de *;V$ 

GOSUB 1500:PRINT" Teaps : ":T$10) 
PRINT: PRINT:PRINT 

FOR 1=1 T0 6 


IF IC4 THEN PRINT " "le Personne Sing ”; 
IF 133 THEN PRINT " "I-3"e Personne Plur ”; 
INPUT RES$(1) 

NEXT 


REM Recherche des eventuelles erreurs . 
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FOR 1=1 TD 6 








2730 : J=1+(C-1) #6:LT=LEN(TES(J)) 

2740 : IF C)4 THEN GOTO 2770 

2750 : IF RIGHT$(RES(I),LT)=TE$(J) THEN FÂ(1)=0 ELSE FX(L)={ 
2760 : 6010 2790 ‘Saut au next 

2770 : IF LEFT$S(RES(I),LT)=TE$(J) THEN Az! ELSE A=0 

2780 : IF A={ AND RIGHTS{RES(1),1)="e" THEN FX(1)=0 ELSE FXI 







)=1 
2790 : NEXT I 
REM Affichage des resultats 






PRINT:PRINT:NF=0 
2820 : FOR I=1 TO b 
2830 : IF FX(1)=1 THEN NF=NF+#1 

2849 : NEXT 1 

2850 : IF NF=0 THEN PRINT "Bravo,0 fautes. *:607T0 2950 
2860 : FOR I=1 T0 6 














2870 : IF FX(I)=1 THEN PRINT "Faute sur la "; 

2880 : IF FX(I)=1 AND IC4 THEN PRINT l;*e Pers Sing" 
2890 : IF FX(1)=1 AND 1>3 THEN PRINT 1-3;"e Pers Plur”" 
2900 : NEXT 

2910 : PRINT: PRINT 

2920 : IF NF=0 THEN G0TO 3000 






2930 : INPUT" Vous corrigez (O/N) *:R$ 
2940 : IF R$="o" THEN G60TO 2580 
2930 INPUT*Une autre conjugaison (D/N) *;R$ 





IF R$="o" THEN GOTO 2240 









RETURN 


ORLUTRE CECECEEEEERCA TE CEC EEE TEE ETC CT CREER 
: REN Fin de la conjugaison 











CLS 
PLOT 10,10,"A la prochaine fois ..." 
PRINT CHR$(17) 


3030 






: RETURN 


TROISIÈME PARTIE 


GRAPHIQUES 
ET MATHÉMATIQUES 
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Tracé de courbes 
y = F(x) 


PRESENTATION 

Pour pouvoir représenter graphiquement une courbe à une variable, il 
faut connaître son domaine d'étude, exclure les points aberrants, trou- 
ver quelques tangentes, points d'inflexion et asymptotes. Bref, beau- 
coup d'opérations qui prennent du temps. 


Le programme de tracé de courbes effectue pour vous une grande 
partie de ce travail. En effet, il lui suffit de connaître le domaine 
d'étude pour effectuer un tracé. Il calcule les échelles et affiche la 
courbe à l'écran, en haute résolution. Le domaine d'étude devra ex- 
clure les points aberrants. 

ORGANIGRAMME DE L'UTILITAIRE 
Le programme a La structure A. 


L'équation est saisie en entrant une ligne de programme BASIC. 
Puis, le domaine d'étude est entré. 


Les valeurs extrémales sont calculées, puis la courbe est tracée. 


L'utilisateur peut obtenir un ''agrandissement'"' de la courbe en res- 
treignant son domaine d'étude. 
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L'onganigramme suivant décrit ces opérations 


Saisie de J'équation 













Saisie du domène d'étude 
Calcul des extremum 
Affichage de la courbe 






q grandissant 


LE PROGRAMME 


ll se décompose en 2 pavés : 


Présentation Lignes 1000 à 1550 
Présentation du programme 

Saisie équation Lignes 2000 à 2730 

et tracé Saisie équation Lignes 2030 à 2160 
Saisie domaine Lignes 2210 à 2310 
Calcul du pas Lignes 2340 à 2580 
Tracé Lignes 2610 à 2700 


LES VARIABLES UTILISEES 


A$ Code couleur de ligne 

R$ Réponse à la question ‘Agrandissement ?" 
X Abscisse courbe 

x1 Borne minimum du domaine d'étude 

X2 Borne maximum du domaine d'étude 
XPAS Pas en X 


YPAS Pas en Y 
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REN Trace de courbes y = F (x) 


6OSUB 1000 Presentation 
GOSUB 2000 ’Saisie de l'equation et trace 


REN Fin du progranse 
LIL COCCCCECECECECECOEE CE CEE CETTE CE TEE 
REN Presentation 
PAPER © : INK 5 : PRINT CHR$(17) 
REN Titre 
PRINT CHR$(12) 


PRINT CHR$(4);CHR$(27)3; "N°; 
PRINT CHR$(27)3; "A TRACE DE COURBES Y = F (X)";CHRS (A 


REX Objet 
PRINT: PRINT: PRINT: PRINT: PRINT 


A$="D" ’Code couleur = Bleu 
PRINT"OBJET :°; 


60SUB 1500:PRINT'Representation graphique de" 
GOSUB 1500:PRINT" courbes a une variable." 


REN Job 


PRINT: PRINT: PRINT 

A$="F" Code couleur = Cyan 

PRINT"J0B :"; 

60SUB 1500:PRINT"Apres avoir entre l’equation" 

GOSUB 1500:PRINT" et le domaine d’etude de" 
60SUB 1500:PRINT" la courbe, ORIC effectuera son" 
GOSUB 1500:PRINT" trace en haute resolution." 
PRINT:60SUB 1500:PRINT" I sera alors possible” 
GOSUB 1500:PRINT" d'obtenir un ‘agrandissement ’" 
60SUB 1500:PRINT" de la courbe en restreignant" 
GOSUB 1500:PRINT" son domaine d’etude." 


REN Debut 
PRINT: PRINT: PRINT 


A$="C" ’Code couleur = Jaune 
PRINT"DEBUT :"; 
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1370 : 60SUB 1500:PRINT"Pour commencer , appuyez sur* 
1380 : GOSUB 1500:PRINT" une touche quelconque." 
1390 : GET A$ ’Attente de l'appui sur une touche 
1400 : 

1410 + RETURN 

CYR CEE CECE TEE CEE EEE CCE EE CE CE EEE CE EEE 
1500 : REN Couleur d’une ligne 

1510 : 

1520 : PRINT CHR$(27);"H";CHRS (27); AS; 

1530 : 

1540 : RETURN 

ESCORT LRR COL ELLE COEEEE CE CE ELECEEE EEE EEE CEE 
2000 : REN Saisie de l’equation et trace 

2010 : 

2020 : CLS : INK 6 : PRINT CHR$(17) 

2025 : 

2030 : REH Saisie de l'equation 

2040 : 

2050 : PRINT CHR$(27)3"L";CHRS (27); "A SAISIE DE L'EQUAT 
JON" 

2060 : PRINT:PRINT:PRINT: PRINT: PRINT: PRINT 

2070 : PRINT" Vous allez entrer l’equation” 
2080 : PRINT" sous la forse :" 

2090 : PRINT 

2100 : PRINT" 2230 DEF FNA(X) = SIN(X)" 
2110 : PRINT:PRINT:PRINT 

2120 : PRINT" Vous taperez ensuite :" 

2130 : PRINT:PRINT" RUN 2200" 

2140 : PRINT:PRINT 

2150 : 

2160 : STOP 


2200 : REM L’equation est saisie 
2210 : REN Saisie du dosaine de definition 


2220 : 
2230 DEF FNA(X) = SIN(X) 
2235 : CLS 


2240 : PRINT CHR$(27);"L";CHR$(27);"A SAISIE DU DOMAINE DE DE 
FINITION" 

2250 : PRINT:PRINT:PRINT:PRINT:PRINT 

2260 : PRINT" Vous allez entrer les valeurs" 

2270 : PRINT" minisale {ain et saxiaale Xaax" 


2280 : PRINT" du domaine d’etude :* 
2290 : PRINT:PRINT: PRINT 

2309 : INPUT" Xain = ";x! 

2310 : PRINT: INPUT* Xmax = ":Y2 





2320 : 
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2330 : 
2340 : 
2350 : 
2400 : 
2410 : 
2420 : 
2430 : 
2440 : 
2450 : 
2460 : 
2470 : 
2480 : 
2490 : 
2500 : 
2510 : 
2520 : 
2530 : 
2540 : 
2550 : 
2560 : 
2570 : 
2580 : 
2590 : 
2600 : 
2610 : 


2620 


2630 : 
2640 : 
2650 : 


2660 


2670 : 
2675 : 


2680 


PRINT:PRINT:PRINT:PRINT" Un aoment s’il vous plait." 
PRINT" Je suis en train de calculer." 
PRINT CHR$(17) 

REN Le domaine d'etude est entre 


XPAS=1X2-X1)/230 ‘Pas en ordonnee 
REN Recherche du pas en coordonnee 
REM Initialisation des variables de pas 


Y1 = 1E33 : Y2 = -1E33 
REM Recherche du pas 


FOR X=X1 T0 X2 STEP XPAS 
A=FNAUX) 
IF ACYI THEN Y1 = À 5 X3 
IF A}Y2 THEN Y2 = A: X4 
NEAT À 


YPAS = {Y1-Y2) / 180 
REM Trace 


HIRES 
FOR X=41 TO X2 STEP XPAS 

Y=FNAUX) 

CURSET INTI(1/XPASI8CX-K1)),INT(U1/YPAS)L(V-V2)),1 
NEXT X 


PRINT"Domaine d'etude : [ ";X15","3X2;")" 
GET A$ 
PRINT'Y max pour X="INT(X44100)/100"Y min pour X="INTUXS 


1001/7100 


2685 
2690 
0 

2695 
2700 
2710 
2720 


GET À$ 
PRINT" Yaax = "3INT(Y24100)/100" Ymin = "3INT(YI41001/10 


GET A$ 
INPUT" Un agrandissement (D/N) *;R$ 
IF R$="0" THEN LORES O : GOTO 2200 


2730 : LORES 0 : END 
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Tracé de courbes 
Y(t), X(t) 


PRESENTATION 


Point n'est besoin d'être un mathématicien acharné pour se servir de 
ce programme. Le tracé des courbes Y(t), X(t) ressemble beaucoup au 
tracé des courbes Y = F(x) à ceci près qu'ordonnée et abscisse sont 
toutes deux fonctions de la variable t (souvent le temps). 


Les courbes Y = F(x) et Y(t), X(t) s'étudient de façon similaire. La 
variable t fluctue dans un domaine de définition (ou d'étude) qui doit 
tenir compte des points aberrants de la fonction X et de la fonction Y. 


Là aussi, il faut chercher quelques tangentes, points d'inflexions et 
asymptotes pour obtenir un tracé correct. ORIC va se charger des cal- 
culs fastidieux et vous demandera seulement le domaine d'étude. Il 
calculera les échelles en X et en Y et affichera la courbe à l'écran, 
en haute résolution. 

ORGANIGRAMME DU TRACE 
Le programme a £a structure A. 

Ici, deux équations sont saisies X = f(t) et Y = g (t). 

Le domaine d'étude est entré. 

Les valeurs extrémales sont calculées et déterminent les échelles en 
X et en Y. La courbe est tracée. L'utilisateur peut obtenir un agran- 


dissement de la courbe en restreignant son domaine d'étude. 


L'organigramme est le même que celui donné pour le tracé des 
courbes Y = F(x). 
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LE PROGRAMME 


identique au tracé de courbes Y = F(x). 


LES VARIABLES UTILISEES 


identiques au tracé de courbes Y = F(x), avec en plus. 


TPAS Pas de progression en t 

Y1, Y2 Bornes minimum et maximum de la fonc- 
tion Y (t). 

Remarque : 


Vous pouvez essayer les couples d'équations suivantes qui donnent 
d'assez beaux résultats avec 150 points et un domaine d'étude compri: 
entre 0 et 6.5. 


[a 


10 : REN Trace de courbes Y{t),#{t} 


20 : 


30 : G60SUB 1000 ’Fresentation 

40 : GOSUB 2000 ‘Saisie de l’equation et trace 
où : 

60 : REN Fin du programe 

EE CARE LCL CE EN EU CCE CCE ETC TOE EC CETETECELE ES 
1000 : REM Presentation 

1010 : 

1020 : PAPER 0 : INK 5 : PRINT CHR$(17) 

1030 : 
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:  REN Titre 
1050 : 
1060 : PRINT CHR$(12) 
1070 : PRINT CHR$14);CHR$ (27); "N°; 
1080 : PRINT CHR$(27);"A TRACE DE COURBES Yit),X(t)":CHR$(4 


1090 : 

1100 : REM Objet 

1110 : 

1120 : PRINT: PRINT: PRINT: PRINT:PRINT 


1130 : A$="D" ’Code couleur = Bleu 

1140 : PRINT'OBJET :"; 

1150 : 60SUB 1500:PRINT"Representation graphique de" 
1160 : 60SUB 1500:PRINT" courbes Y{t),X(t) ." 
1170 : 

1180 : REM Job 

1190 : 


1200 : PRINT: PRINT: PRINT 
1210 : A$="F" ’Code couleur = Cyan 


1220 : PRINT" JOB :"; 

1230 : 60SUR 1500:PRINT"Apres avoir entre les” 

1240 : GOSUB 1500:PRINT" equations et le domaine d'etude" 
3 

1250 : GOSUB 1500:PRINT" de la courbe,ORIC effectuera " 
1260 : GOSUB 1500:PRINT" son trace en haute resolution." 
1270 : PRINT:GOSUB 1500:PRINT" Il sera alors possible" 
1280 : G60SUB 1500:PRINT" d'obtenir un ’agrandissenent’" 
1290 : GOSUB 1500:PRINT" de la courbe en restreignant" 
1300 : 60SUB 1500:PRINT" son domaine d'etude." 

1310 : 

1320 : REN Debut 

1330 : 

1340 : PRINT: PRINT: PRINT 

1350 : A$="C" ’Code couleur = Jaune 

1360 : PRINT'DEBUT :"; 

1370 : 60SUR 1500:PRINT'Four commencer , appuyez sur” 

1380 : GOSUB 1500: PRINT" une touche quelconque." 

1390 : GET A$ ‘Attente de l'appui sur une touche 

1400 : 


1410. : RETURN 

1420 : REM HANANENNNNNTRERARNEANTANNTERETNNNTITTT 
1500 : REM Couleur d’une ligne 

1510 : 

1520 : PRINT CHR$(27);"H";CHR$ (27) ; A6; 

1530 : 

1540 : RETURN 





80 








1950 + REN HENEERORERRERNNEENANNNNNNRNNATNANNANNE 

2009 : REM Saisie des equations et trace 

2010 : 

2020 # CLS : INK & : PRINT CHR$(17) 

2025 : 

2030 : REN Saisie des equations 

2040 : 

2050 : PRINT CHR$ (27); "L';CHRS$ 127); "A SAISIE DES EQUATI 
ONS" 

2060 : PRINT: PRINT: PRINT: PRINT 

2070 : PRINT" Vous allez entrer les equations" 

2080 : PRINT" sous la forme :" 

2099 : PRINT 

2100 : G60SUB 1500: PRINT" 2230 DEF FNA(T) = SIN(T) et" 
2101 à 6OSUB 1500:FRINT" 2231 DEF FNB(T) = COS(T)" 
2102 : PRINT:PRINT" respectivement pour les equations" 
2103 : PRINT" ft) et Y{t)," 

2110 : PRINT: PRINT 

2120 : PRINT" Vous taperez ensuite :" 

2130 : PRINT:60SUB 1500:PRINT" RUN 2200" 

2140 : PRINT: PRINT 

2150 : 

2160 : STOP 

2200 : REN Les equations sont saisies 

2219 : REM Saisie du domaine de definition 

2220 : 

2230 DEF FNA(T)=414C0S1747/48)+71C0S(4147/48) 

2231 DEF FNBIT)=-414SIN(747/48)+74SIN(4147/48) 

2234 : 

2235 : CLS 

2240 : PRINT CHR$(27);"L";CHR$(27);"A SAISIE DU DOMAINE D’E 
TUDE" 

2250 : PRINT:PRINT:PRINT:PRINT:PRINT 

2260 : PRINT" Vous allez entrer les valeurs" 

2270 : PRINT" miniaale Tnin et naxinale Tnax" 

2280 : PRINT" du domaine d'etude :" 

2290 : PRINT: PRINT:PRINT 

2300 : INPUT" Tain = "iT! 

2310 : PRINT: INPUT" Tmax = "372 

2320 : 

2330 : PRINT:PRINT:PRINT:PRINT" Un aonent s’il vous plait." 
2340 : PRINT" Je suis en train de calculer." 

2350 : PRINT CHR$(17) 

2400 : REM Le domaine d’etude est entre 


2410 


2420 : 
2430 : 
2440 : 
2450 : 
2460 : 
2470 : 
2480 : 
2490 : 
2500 

2510 : 
2520 : 
2530 : 
2540 : 
2550 : 
2560 : 
2570 : 
2580 : 
2590 : 
2609 : 
2610 : 
2620 : 
2630 : 
2999 : 
3000 : 
3005 : 
3010 : 
3920 : 
3030 : 
3031 

3040 

3050 : 
3060 

3070 

3075 : 
3080 : 
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REM Calcul du pas en T 
TPAS = {T2-T1) / 1000 
REN Recherche du pas en À et en Ÿ 


REM Initialisation des Variables 
X1=1E33 : X2=-1E33 : YI=LESS : Y2=-1E33 


REM Recherche des pas 


FOR T=T1 TO T2 STEP TPAS 
A=FNACTI : B=FNBUT) 
IF ACX1 THEN X1=A : 
IF A>X2 THEN X2=A : 
IF B€YI THEN Y1=B : 
IF B>Y2 THEN Y2=B : 

NEXT 7 


= AB Ci 
CR DR TR 


4 4 4 — 


REM Calcul des pas 


XPAS = (X1-N2) / 235 : YPAS = (Y1-Y2) / 90 
CIDRE UELECELCCECESECTEET EE COETECETET EC 
REM Trace de la courbe 


HIRES 
FOR T=T1 TO T2 STEP TPAS 

XSFNA UT) 

Y=FNB (T) 

CURSET INTI(H/XPASIHUXI-L)3, INTEUL/VPAG)#IV-V2)),1 
NEXT 7 


PRINT'Domaine d'etude : LE "5X15","3425"7" 
GET A$ 
PRINT"Y max pour X="INT(X4#100)/100"V ain pour {="INT(XS 


#100)/100 


3085 : 
3090 : 
9 
3095 : 
3100 
3110 : 
3120 


3130 : 





GET A$ 
PRINT" Ymax = "ÿINT(Y2#100)/100"  Ymin = "sINTIY1#100)/10 


GET A$ 
INPUT" Un agrandissement (O/N) ";R$ 
IF R$="0* THEN LORES 0 : GOTD 2200 


LORES 0 : END 
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Tracé de courbes 
Y(t), X(t) imbriquées 


PRESENTATION 


Ce programme est la suite logique du tracé de courbes Y(t), X(t), 
et n'a qu'un but esthétique. Effectivement, il consiste à afficher sur 
l'écran une série de courbes paramétrées de type cardioide imbriquées, 
ce qui a pour but de donner une ‘profondeur! à la courbe. 


Seulement quelques lignes ont été changées : 


. Dans la saisie du domaine d'étude. Lignes 2200 à 2630 
. Dans le tracé des courbes à l'écran. Lignes 3000 à 3130 


L'organigramme du tracé est identique à l'organigramme précédent 
Tracé de courbes Y(t), X(t)"' et ne sera donc pas repris. 


Seules les variables NC et NP sont supplémentaires. Elles désignent 
(respectivement) le nombre de cardioïdes imbriquées, et le nombre de 
points par cardioide. 


Le programme "Tracé de courbes ‘”(t), X(t) imbriquées'' n'est pas 
donné ici. En effet, il est très similaire au programme ‘Tracé de cour- 
bes T(t), X(t)'"'. Les lignes, ci-contre, décrivent les modifications à 
apporter au second pour réaliser le premier. 


15 
2280 
2281 
2282 
2290 
2311 
2312 
2440 
2540 
305 
3030 
303 
3055 
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: REM Imbriquées 

: PRINT ‘du domaine d'étude, puis le nombre de; 
: PRINT ‘'cardioides imbriquées NC, et le" 

: PRINT ‘nombre de points par cartioides NP." 


: PRINT:PRINT 
: PRINT:INPUT"! NC = ";NC 
: PRINT:INPUT!! NP = !:NP 


: TPAS=(T2-Ti)/NP 

: AzFNA(T)*NC:B-FNB(T)*NC 
: FOR K=1 TO NC 

: X=FNA(T)"K 

: Y=FNB(T)'K 

: NEXT K 
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Snoopy 


PRESENTATION 


Ce programme permet d'afficher SNOOPY sur l'écran, en haute ré- 
solution. 


ORIC possède une mémoire d'écran qui est la réplique exacte de l'é- 
cran. Pour afficher un dessin en haute résolution, plusieurs méthodes 
peuvent être employées : 


. Un certain nombre de caractères basse résolution sont redéfinis afin 
de constituer le motif désiré. 


. Un programme BASIC se charge de transférer l'image à afficher de la 
mémoire vers la mémoire d'écran. 


. Comme ci-dessus, mais le programme est écrit en assembleur. 


La première solution est à éliminer d'office car le nombre de carac- 
tères LORES 0 et LORES 1 est limité. 


La deuxième solution est séduisante mais pas assez rapide (utilisation 
de BASIC). 


La troisième solution est celle développée ici. Elle offre un gros 
avantage : sa rapidité d'exécution. 


ORGANIGRAMME DU DESSIN 


Deux actions essentielles : 
. Le transfert des données "BASIC! vers la mémoire vive d'ORIC. 


. Le transfert de la mémoire vive vers la mémoire d'écran. 
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D'où L'onganigramme du dessin 


Données MEV 


MEV—MEC 












LE PROGRAMME 


Il se décompose en 2 pavés : 


Transfert Basic Lignes 2000 à 2170 
vers Mémoire vive Informations à l'écran Lignes 2000 à 2016 
Blanchiment MEV Lignes 2020 à 2060 
Transfert Lignes 2070 à 2170 
Transfert MEV Lignes 2200 à 2790 
vers MEC Ecriture ASM Lignes 2220 à 2290 
Message à l'écran Lignes 2310 à 2350 
Transfert Lignes 2400 à 2450 
Données SNOOPY Lignes 2500 à 2580 
Données transfert Lignes 2600 à 2790 
LES VARIABLES UTILISEES 
. VARIABLES BASIC : 
A,B Lecture des données 
A$ Attente de l'appui sur une touche 
1, J Index de boucles 
. VARIABLES MEMOIRE : 
$ 08 Poids faible de début de mémoire vive 
$ 09 Poids fort de début de mémoire vive 
$ OA Poids faible de début de mémoire d'écran 
$ 0B Poids fort de début de mémoire d'écran 


Avant de conclure sur ce programme, donnons la méthode d'affichage 
de dessins en mode HIRES : 


Le mode HIRES étant validé, la mémoire d'écran peut être considérée 
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comme un tableau de 40 colonnes et de 199 lignes. 


La mémoire d'écran est adressée entre # À 000 et # BFEO. Un 
octet de la mémoire d'écran se décompose de la manière suivante : 


On/Off Argument 
TR, a , 
7 6 5 4 3 2 1 0 
CG 
TE, 
1= inverse Motif graphique 
0= Normal 


Chaque octet envoyé à l'écran peut être : 


. Un motif graphique, ou 


. Un argument de contrôle d'attributs (Couleur, Clignotement.….). 


Les bits 5 et 6 font la différence entre motif graphique et argument 


. Ils sont tous les deux nuls, alors les bits # à 4 représentent un argu- 
ment de contrôle d'attributs. 


. Un des deux n'est pas nul, alors les bits # à 5 représentent un motif 
graphique codé sur 6 points (car 6 bits). 


Si un argument est positionné, alors il continue jusqu'à la fin de la 
ligne, sauf s'il est remis à # par un autre argument. 


REN SNOOPY 


GOSUB 2000 ‘Transfert BASIC->MEV 
GOSUB 2290 ‘Transfert MEV-?MEC 


END 
CAR CETECTURCTENEEECECOECERECTEECDCTESTUEE: 
REM Transfert Donnees -} MEV 


REM Inforsations 





2013 
2014 
2015 


2016 : 


2020 
2025 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 


2150 : 


2160 


2170 : 


2200 


2210 : 


2220 : 
2230 : 


2240 : 


2250 
2260 
2270 


2280 : 
2290 : 


2300 
2310 


2320 : 
2330 : 
2340 : 


2350 
2360 


2400 : 


s 
. 
û 
. 
: 
. 
: 
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PAPER O:INK 6:CLS:PRINT CHR$(17) 
PLOTO, 12,2:PLOT1,12,12 ‘Vert clignotant 
PLOT2,12," Transfert BASIC -} MEV en cours ..." 


REN Blanchiment MEV 


FOR 1=0 TO 4500 
POKE 4320041, 64 
NEXT 


REM Transfert 


FOR 1=1 T0 30 
FOR J=1 10 4 
READ A:B=432144-1#((1-1)40) 
POKE B,A 
NEXT J 
NEXT ! 


RETURN 
DIX COCERCECTECEECERCC CE CEDEETECOUOCÉEREE 
REM Transfert MEV -} MEC 


REN Ecriture du programme ASM 


FOR I=0 TO 32 
READ À 
POKE#3100+1,A 

NEXT 1 


REN Transfert ternine 


HIRES 

PRINT"Appuyez sur une touche pour" 
PRINT'declencher le transfert MEV-2MEC" 
GET A$ ’Attente appui sur une touche 


LUR CEE CEE EUCECE EEE EE COCCETCECER CET ES 
REM Transfert MEV -} MEC 
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2410 : 

2420 : CALL #3100 

2430 

2440 : RETURN 

2450 : REN RHIN ETENNTRENNNTTEANTTTRRTTE 

2500 : REM Snoopy 

2510 : 

2520 DATA 64,64,78,64,64,64,33,32,64,65,64,32,64,b6,64,80,65,63,64, 
72 

2530 DATA 6B,64,80,72,72,84,64,72,72,64,65,56,80,56,75,56,80,80,83, 
56 

2540 DATA 80,64,83,56,72,49,35,48,79,60,71,80,64,90,83,64,64,90,85, 
64 

2550 DATA 64,84,48,64,64,68,80,64,64,72,80,64,64,72,80,64,64,72,72, 
64 

2560 DATA 64,72,66,64,64,72,65,b4,64,72,83,64,64,68,83,64,64,68,83, 
48 

2570 DATA 64,48,79,48,67,48,83,56,66,79,67,68,67,65,b3,52,67,b3,32, 
56 


2580 : 


2600 : REN Programme ASM MEV-2MEC 
2610 : 


2620 DATA 449,400 ?LDA #$00 
2630 DATA 485,408 *STA $08 
2640 DATA #85,R0A ’STA $0A 
2650 DATA #A9,#32 ’LDA #$32 
2660 DATA 485,409 ’STA $09 
2670 DATA NA9,#AF *LDA 4$AF 
2680 DATA #85,#0B ’STA $0B 
2690 DATA 442,405  ’LDX #$05 
2700 DATA #A0,#00 ’LDY #$00 
2710 DATA #B1,408 ’LDA {$08),Y 
2720 DATA 491,404 *STA ($0A),Y 
2730 DATA #88 ?DEY 

2740 DATA #D0,#F9 ’BNE $3104 
2750 DATA #E6,#09 INC $09 
2760 DATA 4E6,#0B ’INC $0B 
2770 DATA #CA "DEX 

2780 DATA #D0,#F0 *BNE $3102 
2790 DATA #60 RTS 
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Dessin animé 


PRESENTATION 


Le logiciel proposé ici s'inspire largement du transfert MEV —> MEC 
précédent. || est écrit en assembleur, et permet le transfert de N pages 
graphiques vers la mémoire d'écran. Chaque image est séparée d'un 
“délai image" et a une longueur de #4FF octets. La premiere 
image est située en #3200. 


Le logiciel étudié précédemment permet le transfert d'une image 
graphique de la mémoire vers la mémoire d'écran. Pour faire un dessin 
animé, il suffit de faire défiler à l'écran N images par seconde et donc 
de faire N transferts par seconde, chaque transfert étant séparé d'un 
temps mort pendant lequel l'image reste sur l'écran. (Pour éviter un 
scintillement, ce temps mort devra être au moins 2 fois supérieur au 
temps de transfert MEV — MEC). 


ORGANIGRAMME DU DESSIN ANIME 
Le Logiciel d'animation est donc font simple 
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LE PROGRAMME 


Lecture du hombre 
d'images à envoyer 

















Transfert MEV —-MEC 
Nombre d'images - 4 









Il se décompose en 2 pavés : 


Transfert BASIC 
Mémoire vive 


Transfert MEV v 
Mémoire d'écran 


Remarque : 


vers Lignes 1000 à 1400 
Proc. de transfert 
Initialisations 
Envoi d'une image 
Boucle d'attente 
Boucle d'affichage 


ens Lignes 2000 à 2110 
Message d'écran 
Dessin animé 


Lignes 
Lignes 
Lignes 
Lignes 
Lignes 


Lignes 
Lignes 


1000 
1100 
1200 
1300 
1360 


2020 
2080 


à 


1080 
1190 
1290 
1350 
1370 


2070 


Le temps de pause entre deux images peut varier en modifiant les 


lignes 1300 et 1310. Le temps de pause minimal est obtenu par : 


1300 DATA # A2, # 01 'LDX # $01 
1310 DATA # AO, # 01 'LDY # foi 
LES VARIABLES UTILISEES 
VARIABLES BASIC : 
A Lecture des données 
A$ 


Attente de l'appui sur une touche 


. VARIABLES MEMOIRE : 
$ 08 
$ 09 
$ 0A 
$ 0B 
$ oc 
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Index de boucles 


Poids faible de début de mémoire vive 
Poids fort de début de mémoire vive 
Poids faible de début de mémoire d'écran 
Poids fort de début de mémoire d'écran 


Nombre d'images à envoyer 


10 : REM Dessin anise 


20 : 


30 GOSUB 1900 ‘Transfert BASIC-)MEV 
40 : GOSUB 2090 ’ Transfert MEV-)MEC 


50 : 
60 END 


70 : REN HÉNHNNNEANEENE NIET ENNTANNTITTTRTEE 
1009 : REN Transfert BASIC->MEV 


1010 : 


1020 : FOR 1=0 TO 52 


1030 : READ À 


1040 : POKE#3000+1,AÀ 


1950 NEXT I 
1060 : 


1070 : RETURN 
1080 : REN HSHDNSNNESNN ERNEST ENNTESENTATAENTIARE 


1100 DATA 4A9,810 
1110 DATA #85,40C 
1120 DATA 8A9,400 
1130 DATA #85,408 
1140 DATA #A9,832 
1150 DATA 885,409 
1160 DATA #A9,#00 
1170 DATA #85,4#0À 
1180 DATA #A9,#A0 
1190 DATA #85,40B 
1200 DATA 8A2,404 





’LDA 4410 
?STA $0C 
?LDA 4$00 
?STA $08 
’LDA 4432 
?STA $09 
?LDA #$00 
*STA #08 
?LDA #$A0 
?STA $0B 
’LDX #$04 
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1210 DATA 440,400 
1220 DATA #B1,808 
1230 DATA #91,40A 
1240 DATA 488 
1250 DATA #D0,F9 
1260 DATA #E6,#09 
1270 DATA #Eb,#0R 
1280 DATA #CA 
1290 DATA #D0,#F0 
1300 DATA #h2,800 
1310 DATA #A0,#00 
1320 DATA #88 
1330 DATA #D0,#FD 
1340 DATA #CA 
1350 DATA #D0,4F8 
1360 DATA 406,40 
1370 DATA #D0,#D8 
1380 DATA #60 
1390 : 


’LDY 440 
'LDA ($08),Y 
"STA (#04) ,Y 
*DEY 

?BNE $3018 
*INC $09 
INC $0B 
*DEX 

NE $3016 
'LDX 4400 
'LDY #$00 
?DEY 

'BNE 5302 
*DEX 

*BNE $ 3028 
DEC $0C 


YBNE $300C 
°RTS 


1400 : REN HÉTNNINIENNNENNNNTTNTNNNNITNNTENTITIT 
2000 : REN Transfert MEV->MEC 


2010 : 


2020 : PAPER O:INK 6 

2030 : HIRES:PRINT CHR$#117) 

2040 :  PRINT'Pourcosmencer le transfert," 

2050 :  PRINT"appuyez sur une touche du clavier." 
2060 : GET A$ ‘Attente de l'appui sur une touche 


2070 : 


2080 : CALL #5000 ‘Dessin anime 


2090 
2100 : RETURN 


2110 : REN HÉNSANGENESENNNEEENRENNENNANNEATETEEEX 
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Calendrier perpétuel 


PRESENTATION 
Pour des raisons diverses, vous pouvez vouloir connaïtre le nom du 
jour correspondant à une date donnée. Eh bien, rien n'est plus simple 
grâce à la formule de GAUSS. qui fera tout le travail pour vous. 
Le programme ‘le calendrier perpétuel" se sert de cette formule. 
Après avoir entré la date (jour, mois et année) pour laquelle vous 
voulez connaître le jour, ORIC applique ces données à la formule et 
vous donne immédiatement le jour correspondant. 
ORGANIGRAMME DU CALENDRIER 
Le programme a La structure A. 


Il est difficile de faire plus simple au niveau traitement : 
3 tâches séquentielles composent le calendrier : 

. Entrée de la date, 

. Calcul du jour, 


. Affichage du jour. 


LE PROGRAMME 


Il se décompose en 3 pavés : 


Présentation et Lignes 1000 à 1680 
Initialisation Module de commande Lignes 1000 à 1060 
Présentation Lignes 1100 à 1550 


Initialisation Lignes 1600 à 1680 
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Traitement Lignes 2000 à 2140 
Lecture de la date Lignes 2000 à 2070 
Calcul du jour Lignes 2080 à 2140 
Affichage Lignes 3000 à 3060 
des nésultats Le jour est affiché 


LES VARIABLES UTILISEES 


A$ Code couleur de ligne 

ANS Année considérée 

JOUR Jour considéré 

J$ Jour de la semaine 

M,C,A Variables de calcul 

MOIS Mois considéré 

Z Numéro du jour de la semaine 


REM Le Calengrier Perpetuel 


: GOSUB 1000 ‘Initialisation 

: 60SUB 2000 *Traitenent 
: GOSUB 3000 ‘Fin 

60 : 

70 : END 

80 : REM tttitiiitiitntaitttittitntntttittittttt 

1900 : REM Initialisation 

1010 : 

102ÿ 60SUB 1100 Presentation 

1030 GOSUB 1600 ’Initialisation 

1040 : RETURN 

1050 

1060 : REM AYRNNNTINENTTATANNANTESANETATSNTLTATIRI 

1100 : REN Presentation 

1110 

1120 : PAPER O:INK 5 
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1130 : REM Titre 


1140 : 

1150 : PRINT CHRS(12) ;CHRS (4) 

1160 : PRINT CHR$127);"N";CHR$(27)3 "A LE CALENDRIER PERPE 
FUEL"; 

1170 : PRINT CHR$(4) 

1180 : 

1190 : REM Objet 

1290 : 


1210 : PRINT: PRINT: PRINT: PRINT 

1220 : A$="D':PRINT'OBJET :°; 

1230 : GOSUB 1500:PRINT'Utilitaire." 

1240 : 

1250 : REM Job 

1260 : 

1270 : PRINT: PRINT: PRINT: PRINT 

1280 : AS="FU: PRINT JOB 1°} 

1290 : GOSUE 1500:PRINT"Ce calendrier permet de" 


1300 : GOSUR 1500:PRINT" trouver le non d’un jour ," 

1310 : GOSUR 1500:PRINT" connaissant Jour/Mois/Annee ." 
1320 : GOSUE 1500: PRINT" Ce calendrier est etabli * 

1330 : GOSUB 1500:PRINT" a partir d’une foraule de GAUSS" 
î 

1340 : 


1350 : REM Debut 

1360 : PRINT: PRINT: PRINT 

1370 : hÿ="C":PRINT"Debut :"; 

1380 : GOSUB 1500:PRINT'Pour connencer, appuyez" 

1390 : GOSUB 1500:PRINT" sur une touche quelconque .” 
1400 : 

1410 : GET A$:RETURN 

1420 : REN VEDERRRENTENETTNENREESARTENTTANTTRTIT 

2500 : REN Couleur d’une ligne 

1510 : 

1520 : PRINT CHR$(27);"H";CHRS127) ;A$: 

1330 : 

1340 : RETURN 
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CL LEL CERCLE CCREECERETECEETERTOTETECEEE 
5 REM Initialisation des variables 


FOR 1=0 T0 6 
READ J$(1) 
5  NEXTI 
DATA Dimanche. Lundi .Mardi.Mercredi Jeudi, Vendredi, Sasedi 
RETURN 
OL LE COLLE CLONE LEE CCE CRUE EEE TE CETTE TE) 
: REN Traiteaent 
5 CLS:PRINT:PRINT:PRINT:PRINT 
INPUT" Jour ";JOUR 
PRINT 
INPUT"Mois ";MOIS 
PRINT 
INPUT" Annee ";AN$ 
M=NOIS-2:1F MOIS(=2 THEN M=M015+10 
CeVAL(LEFT$ (ANS, 2) } : A=VAL (RIGHTS (ANS, 2) ) 
IF MO1S(=2 THEN A=A-1 
XSINT (2,68M-0,199)+JOUR+A+INT (A/4)#INT(C/4)-24C 
12INT(X)-78INT(X/7) 
RETURN 


LEXRR CEE E CEE CEE LEURS TELETEEETEE CEE CE CET 
REM Affichage du resultat 
PRINT:PRINT:PRINT 
PRINT ‘Le “;JOUR;"/ "iM01S:"/ ";ANS;" est un": 
PRINT CHR$(27)3"L":CHRS (27); "A"; 78 (7) 
RETURN 


REM LUECEE EEE CEE ET EEEETCETETETE TEE ETEETT 
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Rubick’s cube 


PRESENTATION 


Pour illustrer le mouvement d'objets dans l'espace, le Rubick's Cube 
est un exemple intéressant. 

Deux mouvements sont étudiés dans ce programme : 
. Rotation du cube autour d'un axe vertical 
. Rotation du cube autour d'un axe horizontal 

Trois des 6 faces du cube sont affichées à l'écran. Chaque face pos- 
sède 9 facettes qui sont initialisées en début de programme. Les deux 


rotations possibles ne modifient pas la position des facettes sur chaque 


face. Elles permettent seulement de visualiser successivement toutes 
les faces. 


ORGANIGRAMME DU JEU 


Après avoir entré la couleur (représentée par un nombre) de chaque 
facette, et après avoir initialisé les variables, le jeu peut commencer. 


Il consiste en deux étapes essentielles : 
. Affichage 


. Manipulation 
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Affichage 










Lecture des facettes 


SAT. 


affichées 











Affichage des 
facettes 






Manipulation 


rot. axe 
vertical ? 
hon 










Transposition 
face du haut 


Rotation faces 









rot.axe 
orizontal ? 





Rotation faces 


Re def. face haut 





LE PROGRAMME 
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Il se décompose en 2 pavés : 


Présentation et 
Initialisation 


Wanipulation cube 


LES VARIABLES UTILISEES 


A$ 
A,B 
cc 
1,4, K 
FA 

FIN 

R$ 

T 

TF 

TP, TQ 


Lignes 1000 à 2980 


Module de commande Lignes 
Présentation Lignes 
Initialisation Lignes 


Lignes 3000 à 4420 


Module de commande Lignes 
Affichage cube Lignes 
Manipulation Lignes 
* Module de 

commande Lignes 
* Rotation axe 

vertical Lignes 
* Rotation axe 

horizontal Lignes 


Code couleur de ligne 


1000 
1100 
2000 


3000 
3100 
4000 


4000 


4110 


4300 à 


Variables de lecture des "'DATAS" 


Tableau de couleur des facettes 


Index de boucles 


Tableau des facettes affichées 


Indicateur de fin de traitement 


a 


1060 
1650 
2980 


3070 
3580 
4420 


4080 
4290 


4420 


Saisie d'une commande de manipulation 


Tableau représentant le cube 


Tableau des faces affichées 


Tableaux de travail sur une face 
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19 REM RUBICK?S CUBE 

29 : 

30 : 60SUB 1000 ’Presentation et Initialisation 
40 : 60SUB 3000 ‘Manipulation du cube 

50 : 

60 : TEXT : END 

70 : REN HHHNHNNtt tt aNttNNtATtANIATTETÉ 
1009 : REM Presentation et Initialisation 

1010 : 

1020 : GOSUB 1100 ‘Presentation 

1030 :  GOSUB 2000 ’Initialisation 

1040 : 

1050 : RETURN 

1060 : REN HHHNRESSENNNERNE RENAN ENENTTTTTEEL TT 
1070 PRINT CHR$!4);CHR$127)3;"N"; 

1100 : REX Presentation 

1110 : 

1120 : PAPER 0 : INK 5 : PRINT CHR$(17) 

1130 : 

1140 : REM Titre 

1150 : 

1160 : CLS:PRINT CHR$(12) 

1170 PRINT CHR$(4):CHR$(27);"N"; 

1180 : PRINT CHR$(27);"A RUBICK’S CUBE"; CHR$(4) 
1190 : 

1200 : REN Objet 

1210 : 

1220 : PRINT:PRINT:PRINT:PRINT:PRINT 

1230 : A$="D" Code couleur = Bleu 

1240 : PRINT"OBJET : *; 

1250 : GOSUB 1600:PRINT"Manipulation du cube” 
1260 : GOSUB 1600:PRINT" dans l’espace ." 
1270 : 

1280 REN Job 

1290 : 

1300 : PRINT: PRINT:PRINT 

1310 : A$="F" ’Code couleur = Cyan 

1320 : PRINT"J0B : *; 

1330 : 60SUB 1600:PRINT'Apres initialisation” 
1340 : GOSUB 1600:PRINT" des facettes , le cube peut" 
1350 : 60SUB 1600:PRINT" etre sanipule dans tous les* 








1370 : 


1380 : 


1390 


1400 : 


1410 
1420 
1430 
1440 
1459 
1460 
1470 
1480 
1490 
1500 
1600 
1610 
1620 
1630 
1640 
1650 
2000 
2010 
2020 
2025 
2030 
2040 


2050 : 


2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
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BOSUB 1600:PRINT" directions afin d'obtenir la” 

GOSUB 1600:PRINT" reconstitution des faces ." 
REX Debut 

PRINT:PRINT:PRINT 


A$="C" ’Code couleur = Jaune 

PRINT'DEBUT : "; 

60SUB 1600:PRINT"Pour commencer , appuyez" 

GOSUB 1600:PRINT" sur une touche quelconque ." 


GET A$ ‘Attente de l'appui sur une touche 


RETURN 
REN #tttititttttntttnittttntttntnttntttiittt 
REN Couleur d’une ligne 


PRINT CHR$(27);"H";CHR$ (27); A$; 


RETURN 
LIL CE CRT ONE CET ETETET ET CEE ETES EEE TEE ET 
REM Initialisation des variables du jeu 


CLS: INK 6:PRINT CHR$(17) 
DIN CCI54) 


FOR 1=0 TG 5 
CLS:A$="A" ’Code couleur = Jaune 
GOSUB 1600:PRINT" Cube en position initiale" 


PRINT 
A$="B":60SUB 1600:PRINT"Face *;]+1;":" 
PRINT"Entrez la couleur de chaque facette " 
PRINT"selon le code indique en bas d'ecran." 
PLOT 4,24,"{=Rouge , 2=Vert , 3=Jaune* 
PLOT 4,25,"4=Bleu , 5=Magenta , 6=Cyan" 
FOR J=0 TO 2 

PRINT: PRINT 

A$="C":60SUR 1600: PRINT" Ligne ";J+1 

FOR K=9 T0 2 

A$="E":GOSUB 1600:PRINT" Colonne ";K+l; 
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2190 : INPUT B 

2200 : CC(I49+J43+K+1)=8 

2210 : NEXT K 

2220 : NEXT J 

2230 : NET I 

2240 : 

2290 : REM Constitution du tableau Faces 
2260 : 

2270 : DIM T(3,3,6),FA(54) 

2290 : 

2300 : REM Faces { a 6 

2305 : FOR K=! TO 6 

2310 : FOR 1=1 TO 3 

2329 : FOR J=1 T0 3 

2330 : T(,9,K)=(1-1343+J+(K-1)49 
2340 : NEXT J 

2350 : NEXT I 

2360 : NEXT K 

2370 : 

2875 : 

2875 : REN Tableau des 3 faces affichees 
2880 : FOR I=1 T0 3 

2870 : FOR J=1 TO 3 

2960 : TP{1,d)=T(1,d,5) 

2910 : NEXT J 

2920 : NEXTI 

2930 : 

2935 : REM Numero des 3 faces affichees et code de rotation (BI 
2940 : TF(1)=5:TF(2)=1:TF(3)22 

2950 : 

2960 : RETURN 

2970 : 

2980 : REN HRHÉHNENENNTENNTENTANENTENTERITATENIETT 
3000 : REM Manipulation du cube 

3010 : 

3020 :  GOSUB 3100 ‘Affichage du cube 
3030 :  GOSUB 4000 ‘Manipulation 

3040 : IF FINC}>{ THEN 3000 

3050 : 

3060 : RETURN 
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3070 : REN SSNHRENENNNNENNTANTNRNNTANTINNINIINIT 
3100 : REN Affichage du cube 

3110 : 
3120 : 


3130 : 
3150 : 
3160 : 
3170 : 
3180 : 
3190 : 
3200 : 
3210 : 
3220 : 
3230 : 
3240 : 


3241 : 


3242 


3243 : 


3244 


3245 : 


3246 


3247 : 
3248 : 


3250 


3251 : 
3292 : 
3253 : 
3254 : 
3255 : 
3256 : 
3257 : 


3260 


3270 : 
3280 : 
3285 : 
3290 : 
3300 : 
3310 : 


3320 


3330 : 


HIRES: INK 6 
RESTORE 


REM Cadre 


FOR 1=1 70 21 
READ A,B:CURSET A,8, 
READ A,B:DRAN A,B,1 

NEXT 1 


REM Facettes 


FOR 1=1 T0 3 
FOR J=1 T0 3 
FAUEI-1)#34))=CC(TP(I,4-1)) 
FAUII-1)434)#9)2C0UT(1,J,TF(2))) 
FAUUI-143#0#18)=CCITI,J,TF(3))) 
NEXT J 
NEXT ! 


IF TF(1)=5 THEN 3260 
FOR I=1 TO 3 
FOR J=1 T0 3 
FAUIT-1)43+3+9)=CC(TI4-1,4-J,7F(2))) 
FAUUI-1)43+J+18)=CC(T(4-T,4-J,TF(3))) 
NEXT J 
NEXT 1 


FOR 1=1 T0 27 
READ C,D:CURSET C,D,0 
CHAR FA(L)448,0,1 

NEXT 1 


REM Indications 


FOR 1=1 TO 25 
READ A,B,C 
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3340 : CURSET A,B,0:CHAR C,0,1 

3350 : NEXT 

3360 : CURSET 207,100,0:CHAR TF11)+48,0,1 

336! : CURSET 207,110,0:CHAR TF(2)+48,0,1 

3362 :  CURSET 207,120,0:CHAR TF(3)#48,0,1 

3363 : 

3370 : RETURN 

3380 : REM HHRHSRNRNNSNNTÉNTNNTANTTANNTTNRETIET 

3400 DATA 100,0,50,50,87,13, 50,50, 74,26,50, 50,61, 39,30, 50 

3410 DATA 100,0,-39,39,116,16,-39,39,133,33,-39,39,150,50,-39,39 
3420 DATA 61,39,0,90,77,55,0,90,94,72,0,90,111,89,0,90 

3430 DATA 124,76,0,90,137,63,0,90,150,50,0, 90 

3440 DATA 61,69,50, 50,61, 99,50, 50, 81, 129,50, 50 

3450 DATA 111,119,39,-39,111,149,39,-39,111,179,39,-59 

3460 : 

3470 DATA 100,10,117,27,134,44,85,23,102,40,119,57,70,36,87,53, 104, 
76 

3480 DATA 68,60,85,77,102,94,68,90,85, 107, 102, 124,88, 120,85, 137,102 
154 

3490 DATA 115,94,128,81,141,68,115,124,128,111,141,98,115,154,128,1 
41 

3500 DATA 141,128 

3510 : 

3520 DATA 165,85,70,171,85,97,177,85,99,183,85,101,189,85,115,195,8 
5,98 

3530 DATA 165,100,72,171,100,97,177,100,117,183,100,116,201,100,58 
3540 DATA 165,110,71,171,110,97,177,110,117,183,110,99,189,110,104 
3550 DATA 195,110,101,201,110,58 

3560 DATA 165,120,68,171,120,114,177,120,111,183,120,105,189,120,11 
b 

3570 DATA 195,120,101,201,120,58 

3580 : REN téttittgtittnttittttttntttttiittntititt 

4000 : REM Manipulation 

4010 : 

4020 : A$="A":60SUB 1800:PRINT'RI=Rotation axe vertical ,R2=Rotati 
on" 

4030 :  GOSUB 1600:PRINT'axe horizontal, {=Sortie" 

4040 : INPUT "Choix ";R$ 

4050 : IF R$="RI1" THEN 4120 

4060 : IF R$="R2" THEN 4300 
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IF R$="X" THEN FIN=1:RETURN 
G60TO 4000 


IF R$="R2" THEN 4300 
GOTO 4000 


REM Rotation autour d’un axe vertical 


REN Transposition face du haut 
FOR 1=1 TO 3 
FOR J=1 T0 3 
TO(J,4-I)=TP(1,d) 
NEXT J 
NEXT I 
FOR 1=1 T0 3 
FOR J={ T0 3 
TP(I,d)=T0 (1,9) 
NEXT J 
NEXT I 
REM Rotation des faces Gauche et Droite 
TF{2)=TF (3): TF(3)=TF (3) #1 
IF TF(3)=5 THEN TF(3)=1 


RETURN 


REM Rotation autour d’un axe horizontal 


IF TF(1)=5 THEN TF(1)=6:TF(2)=4:TF(3)=2:60T0 4360 
TF(D)25:TF(2)=1:TF(3)=2 
FOR 1=1 T0 $ 


FOR J=1 10 3 
TPUI,d)2T(1,0,TF(1)) 
NEXT J 
NEXT 1 


RETURN 
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Classement par ordre 
croissant ou décroissant 
chaînes et nombres 


PRESENTATION 


Dans votre vie d'informaticien, vous serez sans doute amené à vouloir 
classer des données numériques (ou alphanumériques) par ordre crois- 
sant ou décroissant (respectivement alphabétique ou inverse alphabétique). 


Le langage BASIC fait la différence entre caractères et nombres, 
c'est ainsi que deux programmes sont présentés : 
. Un pour le classement de chaînes de caractères, 
. Un pour le classement de nombres 

Il existe un nombre impressionnant de méthodes de classement par 


ordre croissant et décroissant. Celle qui a été retenue ici offre deux 
avantages : sa rapidité et sa simplicité. 


ORGANIGRAMME DU CLASSEMENT 


Le programme a £a structure A. 


Examinons le cheminement du programme de classement par ordre 
croissant. 


Le classement par ordre décroissant est très similaire. 


Un tableau contient les entités à classer. La méthode consiste à 
balayer le tableau en "inversant'" deux entités successives a et b si elles 
ne répondent pas à la condition ‘'a>b' ou 'a<b' (pour un classement 
décroissant respectivement croissant). 


Le tableau sera balayé jusqu'à ce qu'il n'y ait plus aucune inversion 
dans un balayage complet. 
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L'onganigramme suivant décrit cette méthode de 


classement. 








In version 





Pour l'organigramme du classement par ordre décroissant, seul le 
test T (J) > T (J+1) se transforme en T(J) < T(J+1). 


LE PROGRAMME 


Il se décompose en 3 pavés : 


Présentation Lignes 1000 à 1550 
Classement Lignes 2000 à 2650 
Acquisition des 
données Lignes 2000 à 2200 
Classement Lignes 2200 à 2650 
Fin de classement Lignes 3000 à 3100 


Affichage des données classées 
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LES VARIABLES UTILISEES 


A$ Code couleur de ligne 
puis variable de calcul 
B$ Chaïne des caractères à classer 
C$, D$ Variables de calculs 
1, J Index de boucles 
IN Nombre de permutations effectuées 
R$ Sens du classement 
T$ Tableau contenant les chaïnes à classer. 


Pour le classement numérique, les variables B$, C$, D$£, TS 
se changent en B, C, D, T. 


Remarque : 


Les programmes de classement de chaînes et de nombres sont ditfé- 
rents. Eri effet, si nous ne faisions qu'un programme de classement, il 
opérerait sur des chaïhes de caractères (puisque les chaïhes peuvent 
aussi bien contenir de l'alphanumérique que du numérique). Malheureu- 
sement, la chaïhe "21" est < à la chaïne "3" (d'un point de vue alpha- 
numérique), ce qui est faux d'un point de vue numérique (on a en 
effet 21 > 3 !). 


On est donc contraint de faire un programme de classement alpha- 
numérique et un programme de classement numérique. 
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1 DIM T$(100) 

10 REX Classesent par ordre Croissant et Decroissant 
15 REN de nots alphabetiques 

20 

30 G60SUB 1000 ‘Presentation du progranne 

40 G60SUB 2000 ‘Acquisition des donnees et classement 
90 : 60SUB 3000 ‘Fin du programme 

60 

70 : END 

80 CLR LEE CEE E CEE ET EE CERTES CRE EEE EEE CEE 

1000 : REN Presentation du progranse 

1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1280 
1290 
1300 
1310 


PAPER © : INK b : PRINT CHR$(17) 
REM Titre 


PRINT CHR$(12) 

PRINT CHRS(4) ;CHRS (27) ;"N"; 

PRINT CHRS(27);"A CLASSEMENT CROISSANT ET DECROISSANT"; 
PRINT CHRS{4) 


REN Objet 


PRINT:PRINT: PRINT: PRINT: PRINT 

A$="D" ’Code couleur = Bleu 

PRINT"OBJET :"; 

60SUB 1500:PRINT'Utilitaire aatheratique.* 


REN Job 


PRINT:PRINT:PRINT: PRINT 

A$="F" ’Code couleur = Cyan 

PRINT"J0B :"; 

60SUB 1500:PRINT"Ce prograane se charge" 

GOSUB 1300:PRINT" d'effectuer un classement " 
60SUB 1500:PRINT" croissant ou decroissant de” 
GOSUB 1500:PRINT" nots alphabetiques." 


REM Debut 


PRINT:PRINT:PRINT: PRINT 
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1320 : A$="C" ’Code couleur = Jaune 

1330 : PRINT"DEBUT :"; 

1340 : GOSUB 1500:PRINT'Pour commencer , appuyez sur" 
1350 : 6OSUB 1500:PRINT" une touche quelconque." 
1360 : 

1370 : GET A$ ’Attente de l'appui sur une touche 

1380 : 

1390 : RETURN 

1400 : REN DHRRRRTNRNNNNNNTINETRATANNNNNNRETNRATIR 

1500 : REN Couleur d’une ligne 

1510 : 

1320 : PRINT CHR$(27);"H";CHRS (27) ; À$; 

1530 : 


1540 : RETURN 
1950 : REN DHNRETSNNNRENSRNTAANNNNIRESTRTNNTI ESS 


1999 STOP 

2000 : REM Acquisition des donnees et classement 
2010 : 

2020 : REM Acquisition des donnees 

2036 : 

2040 : CLS 


2050 : PRINT CHR$(27);"L";CHR$(27);"C"; 
2060 : PRINT" ACQUISITION DES DONNEES" 
2070 : PRINT CHR$(17):PRINT:PRINT:PRINT 
2080 : A$="B":60SUB 1500 

2090 : PRINT"'Entrez les donnees a classer." 
2100 : A$="B":60SUB 1500 


2110 : PRINT'La saisie se terminera par 9999 ," 
2120 : PRINT: PRINT 

2130 : 

2140 : REPEAT 

2150 : PRINT" Donnee ";1;:INPUT B$ 
2160 : I=141:T${1)=8$ 

2170 : IF INT(1/17)=1/17 THEN PAGE={ 
2180 : UNTIL B$="9999" OR PAGE=1 

2190 : IF RAGE=1 THEN PAGE=0:607T0 2000 
2200 : 

2210 : REN Classement 

2220 : 


2230 : CLS: PRINT: PRINT 
2240 : A$="C":60SUB 1500 
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PRINT"Voulez-vous un classesent croissant" 
60SUB 1590 
INPUT"ou decroissant (C/D) ";R$ 


IF R$="C" THEN CLAS=2500 ELSE CLAS=2600 


REPEAT 
IN=0 
FOR J=1 TO 1-1 
C$=T$(J):D$=T$(J+1) 
GOSUB CLAS 
NEXT J 
UNTIL IN=0 


RETURN 
OL TLRE LOUE EEE CETTET EE CET EEE CE CETTE EE LEE EI 
REN Classement par ordre croissant 


IF C#D$ THEN T$(J)=D$:T$1J+1)=C$: IN=1 


RETURN 
LIT RE COLEETER CORRE TOR CONTRER CORTE TER TETE 
: REN Classesent par ordre decroissant 


IF C$(D$ THEN T$(J)=D$:T$1J+1)=C$: IN=1 


RETURN 
REM fttitttitttittttntttnttanttttanitttiitt 
REM Fin du traitesent 


CLS 
PRINT CHR$(27);"L";CHR$(27)3"C DONNEES CLASSEES" 
PRINT:PRINT:PRINT 
FOR J=1 TOI 
A$=T$(J) 
IF A$C>"9999" THEN PRINT SPC(18);A$ 
NEXT J 


RETURN 
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Le programme de classement de nombres n'est pas donné ici. 
En effet, il est très.similaire au programme de classement de mots 
alphabétiques. Les lignes qui suivent décrivent les modifications à appor- 
ter au second pour réaliser le premier. 


1 : DIM T(100) 

15 : REM de nombres 

1260 : GOSUB 500:PRINT" nombres." 
2150 : PRINT" Donnée ";l;:INPUT B 


2160 : 1=1+1:T(1)=B 

2340 : C=T(J):D=T(J+1) 

2520 : IF C D THEN T(J)=D:T(J+1)=C:IN=1 
2620 : IF C D THEN T(J)=D:T(J+1)=C:IN=1 
3060 : A=T(J) 

3070 : IF A 9999 THEN PRINT SPC(18);A 


QUATRIÈME PARTIE 
UTILITAIRE 
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Désassembleur 6502 


PRESENTATION 


Le langage d'assemblage (ou assembleur) est puissant et rapide. Son 
seul défaut est sa difficulté de mise en oeuvre. 


Comme tout langage, il possède ses propres instructions. On les 
appelle ""Codes-Opératoires'' (ou Codes-Op). Elles sont très spécifiques 
au microprocesseur utilisé. 


Le 6502 possède 152 instructions qui sont détaillées ci-après. 


L'utilitaire de désassemblage proposé ici permet de convertir les 
données hexadécimales stockées en mémoire, en Codes-Opératoires. 


Le Code -Op peut être interprété plus facilement que le code hexa, 
car il reprend les 2 ou 3 premières lettres de l'action qu'il effectue. 
En vous reportant à la description de chaque instruction rencontrée, 


et, avec un peu de pratique, vous arriverez sans doute à comprendre 
les suites d'instructions écrites en mémoire. 


ORGANIGRAMME DE L'UTILITAIRE 


Le programme a £a structure A. 
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L'utilitaine a La structure suivante 


LE PROGRAMME 







Désassembleur 


Saisie adtesse de 
début et Fin de 
désassemblage 














memoire 


Décodage 


Affichage 


Lecture 











Il se décompose en 2 pavés : 


Présentation et 
Initialisation 


Désassemblage 


Lignes 1000 à 2220 
Module de commande 
Présentation 
Initialisation 

(Lecture des codes-op 
sage) 


Lignes 3000 à 4670 
Lecture bornes 
Désassemblage 

- Page D, Y 

- Immédiat 

- Page Ÿ 

- Absolu 

- Absolu, X 

- Absolu Y, 

- indirect, X 

- indirect, Y 

- Page D, X 

- JMP indirect 
Calculs d'affichage 


Lignes 1000 à 1060 
Lignes 1100 à 1600 
Lignes 1600 à 2220 
et modes d'adres- 


Lignes 3000 à 3120 
Lignes 3130 à 3250 
Lignes 3500 à 4450 
Lignes 3600 à 3660 
Lignes 3700 à 3760 
Lignes 3800 à 3860 
Lignes 3900 à 3960 
Lignes 4000 à 4060 
Lignes 4100 à 4160 
Lignes 4200 à 4260 
Lignes 4300 à 4360 
Lignes 4400 à 4450 
Lignes 4500 à 4670 
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LES VARIABLES UTILISEES 


A$ Code couleur de ligne 

B Variable intermédiaire lecture données 
H2$, H3$ Codes hexa à afficher 

( Index de boucles 

MA Tableau des modes d'adressage 

R$ Variable réponse 

T$ Tableau des Codes-Op 

CO, LA, CA, IN, 

H1,L, F2$ Variables intermédiaires de désassemblage 


REM Desassembleur 


GOSUR 1009 ‘Fresentation et Initialisation 
G69SUR 3000 ‘Desassenblage 


END 
LA CREER ES TOC ET OU ETERCTOUEETO EE CEE EST EEE 
: REM Presentation et Initialisation 


GOSUB 1190 Presentation 
GOSUB 1400 *’Initialisation 


RETURN 
5 REM HHNNRNNNSNNNRNNNENTNNNNNNNATNANNNTLENTIIÉ 
: REM Presentation 


PAPER © : INK G : PRINT CHR$(17) 

REN Titre 

PRINT CHR$(12) 

PRINT CHR${4):CHR#127); "N°: 

PRINT CHR$(27);"A DESASSEMBLEUR";CHR$ (4) 


: REN Dbjet 


PRINT: PRINT: PRINT: PRINT: PRINT 
A$="D" ‘Code couleur = Bleu 
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1220 :  PRINT'OBJET : ": 
1230 :  GOSUB 1500:PRINT'Utilitaire de desassesblage." 
+240 : 

1250 : REM Job 


1260 : 

1270 :  PRINT:PRINT:PRINT 

1280 : A$="F" Code coulINKur = Cyan 

1290 : PRINT'JOB : "; 

1300 :  GOSUB 1500:PRINT"Ce progranse permet de faire”; 
1310 :  GOSUR 1500:PRINT" la conversion du code" 
1320 : GOSUB 1500:PRINT" hexadecimal contenu en memoire"; 
1330 :  GOSUB 1500:PRINT" en code Assembleur ..." 
1340 : 

1350 : REN Debut 

1360 : 

1370 :  PRINT:PRINT:PRINT 

1380 : A$="C" Code couleur = Jaune 

1390 :  PRINT'DEBUT : "; 

1400 :  GOSUB 1500:PRINT"Pour commencer la conversion"; 
1410 :  GOSUR 1500:PRINT" appuyez sur une touche 
1429 :  GOSUB 1500:PRINT" quelconque .* 

1430 : GET A$ ’Attente de l'appui sur une touche 

1440 : 


1450 : RETURN 

1469 : REM HANSANNNINNNRNNNENNTENNASENEENTENNESTNTTNTETN 
1500 : REN Module de couleur de ligne 

1510 : 

1920 : PRINT CHR$(27):"H";CHRS (27); A$; 

1530 : 

1540 : RETURN 

1550 : REM DHRSASNNNNNTANNNRANNNNEETTANATNTRNNTTTTET 

1600 : REM Initialisation des constantes du programme 


1610 : 

1820 : DIM T$(256) ,MA(256) 

1830 : 

1640 : REN Tableau des Codes-op 


1650 : FOR 1=0 TO 255 
iéé0 : READ B$:T$(1)=K$ 
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1870 : 
1680 : 
1690 : 
1700 : 
1710: 
1720 : 
1730 : 
1740 : 





NEXT ! 


REM Tableau des Nodes d'Adressage 
FOR 1=0 TO 255 

READ H:NA(I)=E 
NEXT I 


REN Codes-0op 


1880 DATA "BRK". "DORA", 4,4 "ORA","ASL", "PHP", "ORA","ASL A",,."0RA"," 


AL", 


1870 DATA 
1880 DATA 
T°, "AND" 


“BPL","ORA" 444, "ORA", "AL", "TLC", "ORA",,,,"0RA","ASL", 
"JSR","AND",,, "BIT, "AND", "ROL",,"PLP®, "AND", "ROL À", ,"81 


1881 DATA "ROL”, 


1890 DATA 
1900 DATA 


RMI" "AND", "AND", "ROL", "SEC". "AND". "AND", "RL". 
"RTL" "EUR", 4 ,"EOR", LSR", "PHA". "EUR", "LSR A", ,"JMP®,"E 


DR","LSR", 


1910 DATA 
1920 DATA 


"BUC""EOR",,,, "EDR", "LSR", ,CLI "EDR", "EDR", "LGR®, 
RTS" "AD", ,"ADC", *ROR", "PLA, "AD" ,"ROR 4°, ,"JMP","A 


DC" ,"RDR", 


1939 DATA 
1940 DATA 


k», 


1950 DATA 


BUS" "ADC",,,,"ADC*,"ROR", "GEI", "ADC",,,,"ADC", "ADR", 
'STA",,,STY" "STAR", ST", "DEV, "TIA, GTV", "GTA", ST 


"BC", "GTA", ,"STY", "GTA" "GTX, "TVA" "GTA" "THIS", "STA 


LE 
1960 DATA "LD", "LDA","LDX", ,"LDV","LDA", "LDK",, "TAY®,"LDA", "TAN, 


1961 DATA 
1970 DATA 


“LDY",*LDA","LDY", 
*BCS","LDA", , "LDY","LDA®, "LDY", "ELUS,"LDA", "TSH", 


1974 DATA "LDY","LDA",*LDX", 


1980 DATA 
1981 DATA 


"CPV" ,"CMP",, "CPV", *CMP*, "DEC", ,"INV", CNP", "DEN", 
*CPY* "CMP", "DEC", 


1990 DATA "BNE", "CMP"... ,"CMP*,"DEC", ,"CLD","CHP",,,, "CMP", "DEC®, 


2900 DATA 


aCPX" "BC", "CPL", "SRC", "INC", *INX", "SEC", *NOP*,, "CP" 


2001 DATA *SBC"."INC", 


2010 DATA 


2020 : 
2030 : 





2040 DATA 0,18,0,0,0,18,18,0,0,11,0,0,0,23, 23,0 


"RER", "GBC". "BC", "INC", "GED", "GBC", ,, "SEC" "INC", 


REM Mode d’adressage 
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2050 DATA 19,186,0,0,0,18,18,0,0,25,0,0,0,24,24,0 
2060 DATA 23,16,0,0,12,12,12,0,0,11,0,0,22,22,22,0 
2070 DATA 19,17,0,0,0,18,18,0,0,25,0,0,0,24,24,0 
2080 DATA 0,16,0,0,0,12,12,0,0,11,0,0,23,23,23,0 
2090 DATA 19,17,0,0,0,18,18,0,0,25,0,0,0,24,24,0 
2100 DATA 0,16,0,0,0,12,12,0,0,11,0,0,29,23,23,0 
2110 DATA 19,17,0,0,0,18,18,0,0,25,0,0,0,24,24,0 
2120 DATA 0,16,0,0,12,12,12,0,0,0,0,0,23,23,23,0 
2130 DATA 19,17,0,0,18.18,10,0,0,25.0,0,0,24,0,0 
2140 DATA 11,16,11,0,12,12,12,0,0,11,0,0,23,23,23,0 
2150 DATA 19,17,0,0,18,18,10,0,0,23,0,0,24,26,25,0 
2160 DATA 11,16,0,0,12,12,12,0,0,11,0,0,23,23,23,0 
2170 DATA 19,17,0,0,0,18,18,0,0,25,0,0,0,24,24,0 
2180 DATA 11,16,0,0,12,12,12,0,0,11,0,0,23,23,23,0 
2190 DATA 19,17,0,0,0,18,18,0,0,15,0,0,0,23,23,0 
2200 : 

2210 : RETURN 

2220 : REN HÉHNNSNEENENNTNNSENNRNTENNESLEENENNNTNASENNNTS 
3009 : REM Desasseablage 

3020 : CLS : INK 6 : PRINT CHR$(17) 

3030 : PRINT'Entrez les adresces * 

3040 : PRINT'de debut et de fin de desassenblage" 
3050 :  PRINT'en deciæal ." 

3080 :  PRINT:PRINT 


3070 : INPUT" Debut : *;DEBUT 
3080 : PRINT 

3090 : INPUT" Fin +: "5FIN 
310u : IF FIN <= DEBUT THEN 3000 
3110 : 


3120 :  A=DEBUT 

3130 : REPEAT 

3140 : CO=PEEK (A) :LA=LENUHEXS (A) ) 

3150 : CA=MA(CO) : IN=CA-INT (CA/10)#10:H1=CD:L=LEN(HEXS (H1)) 
3160 : FIS=RIGHTS(HENS(A),LA-1):1F LEN(FI$)=4 THEN 3164 


3161 : FOR 1=1 TO 4-LEN(F1$) 
3162 : PRINT "0"; 
3165 : NEXT 


PRINT F1$;" "; 
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IF COC)0 THEN F2$=RIGHT$(HEX$(H1),L-1) ELSE F2$="00" 
3166 : IF LEN(F2$)=1 THEN PRINT "0"; 

3167 : PRINT F2$;" "; 

3168 : IF IN=0 AND T$(C0)="" THEN 3180 

3169 : IF IN=0 AND T$(CD)<)"" THEN PRINT" “sT$(C0);:6070 3 
180 

3173 : IF CA=19 THEN IN=IN+#I 
3174 : IN=IN+#1 

3175 : ON IN G0SUR3500. 3600, 3700, 3800, 3900, 4000, 4100, 4200, 4300, 
4400, 4500 

3180 : A=A+1: PRINT 

3190 : UNTIL ADFIN 

3200 : PRINT 

3210 : INPUT" On continue {O/N) ";R$ 
3220 : IF R$="0" THEN GOTO 3000 
3230 : 

3240 : RETURN 


3250 : REM SHHRN tt NS RA TAN TRAR ENTREE 
3500 : REM Page 0,Y 

3510 

3520 GOSUB 4500 

3530 PRINT H2$3" ":T$(CO);" $"3H28;",V"; 


3540 : 

3550 : RETURN 

3560 : REM ---------""". 
3600 : REM Inaediat 

3610 : 


3620 GOSUB 4500 

3630 PRINT H2$;"  ";T$(C0);" 4";H2$; 
3640 

3650 : RETURN 

Sbb0:S-REM'=SeSS= Semen esse 

3700 : REN Page 0 

3710 : 


3720 : GOSUB 4600 
3730 : PRINT H2$:"  ":T$(CO);" $":H2$; 
3740 : 

: RETURN 


3800 


3810 : 


3820 


3830 : 
3840 : 
3850 : 


3860 
3900 


3910 : 
3920 : 
3930 : 


3940 
3950 
3960 
4000 


4010 : 


420 
4030 
4040 


4050 : 


4060 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4200 
4210 
4220 
4230 
4240 
4230 
4260 
4300 
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REM Absolu 


6OSUB 4600:60SUB 4700 
PRINT H2$:" ";Higi" ":TS(CO):" 4":H3$;H2$: 


RETURN 
REM sense 
REN Absolu, X 


GOSUB 4600:60SUB 4700 
PRINT H2$;" ":H385" ":T$(CO);" $":H365H26:",X"; 


RETURN 
REN == 
REN Absolu, Y 


GOSUB 4600:60SUR 4700 
PRINT H28;" "sH3$" ":T$iCO):" S":H3S;H26;", Vo 


RETURN 
REM --------- 
REM Indirect, À 


6OSUB 4600 
PRINT H2$5"  ":T$(CO):" ($";H285;", 4)"; 


RETURN 
REM ----------- 
REM Indirect,YŸ 


GOSUB 4600 
PRINT H2$5"  "3;T$(CO):" ($":H285;"),V"s 


RETURN 
REM ------------- 
REM Page 0.X 
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GOSUB 4600 
PRINT H2$5"  ":T$(CD);" S":H2$5",X"; 


: RETURN 


5 REM JMP Indirect 


GOSUB 4600:60SUB 4700 
PRINT H2$5" MsH3gs" ":TS(CO);" (S";H3S;H285")": 


RETURN 


s. REM Relatif 


6OSUB 4600 
PRINT H2$;"  ";T$(CO):" *; 
KS=HEXS CA4H241):PRINT"S"4RIGHTSS,LENLXS)-1); 


: RETURN 


REM Calcul de H2$ 


H2=PEEK (A+1) :A=A#1 
L2=LENCHEX$ (H2)) 
H2$=RIGHT$ (HEXS 1H2) ,L2-1) 
IF L2=1 THEN H24="00" 


: RETURN 


: REN Calcul de H3$ 


H3=PEEK (A+1) : A=A+! 
L3=LEN(HEXS (HS) ) 
H3$=RIGHTS$ (HEXS$ (H3) ,L3-1) 
IF L3=1 THEN H3$="00" 


RETURN 
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JEU D'INSTRUCTIONS DU 6502 : 


ADC 


AND 


ASL 


BCC 
BCS 
BEQ 
BIT 


BMI 
BNE 
BPL 
BRK 
BVC 
CLC 
CLD 
CLI 
CLV 
CMP 


CPX 


DEC 


DEX 


DEY 


EOR 


Addition &ec retenue ; À = À + M + C 
Affectés : N,V,2Z,C 


ET logique ; À = AAÏM 
Affectés : N,2Z 


Décalage à gauche 
Affectés : N,2Z,C 


Branchement si pas de retenue (C = 0) 
Branchement si retenue (C = 1) 
Branchement si zéro (Z = 1) 


Test de bits (ET virtuel entre Accumulateur et mémoire 
spécif). 
Affecté : Z 


Branchement si négatif (N = 1) 
Branchement si non égal à zéro (Z = 0) 
Branchement si positif ou nul (N= 0) 
Interruption Software 

Branchement si pas de débordement (V = 1) 
Annuler la retenue ; C= 0 

Annuler le mode décimal ; D = 0 

Autorise les interruptions ; | = 0 

Annule l'indicateur de débordement ; V = 0 


Compare Accumulateur et mémoire ; À = À - M 
Affectés : N,Z,C 


Compare X et mémoire ; X = X - M 
Affectés : N,Z,C 


Compare Y et mémoire ; Y = Y - M 
Affectés : N,Z,C 


Décrémente la mémoire ; M = M -1 
Affectés : N,2Z 


Décrémenter X ; X = X - 1 
Affectés : N,7Z 


Décrémenter Y ; Y = Y -1 
Affectés : N,7Z 


OÙ exclusif entre Accumulateur et Mémoire 
Affectés : N,2Z 
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INC 


INX 


INY 


JMP 
JSR 
LDA 


LDX 


LDY 


LSR 


NOP 
ORA 


PHA 


PHP 


PLA 


PLP 


ROL 


ROR 


RTI 
RTS 
SBC 


Incrémenter la mémoire ; M = M +1 
Affectés : N,2Z 


Incrémenter X ; X = X + 1 
Affectés : N,2Z 


Incrémenter Y ; Y = Y +1 
Affectés : N,2Z 


Saut inconditionnel 
Appel d'un sous-programme (PC est sauvegardé dans la pile) 


Charger l'accumulateur ; À = M 
Affectés : N,2Z 


Charger X ; X = M 
Affectés : N,2Z 
Charger Y ; Y = M 
Affectés : N,2Z 


Décalage à droite de l'accumulateur ou de la mémoire 
Affectés : N,Z, C 


Pas d'opération 


OÙ inclusif entre Accumulateur et mémoire 
Affectés : N,2Z 


Empiler A 
L'accumulateur est placé au sommet de la pile. 
Le pointeur de pile est mis à jour. 


Empiler P 

Le registre d'état est placé au sommet de la pile 
Le pointeur de pile est mis à jour 

Dépiler A 

Transfère vers À le contenu du sommet de la pile 
Le pointeur de pile est mis à jour. 

Affectés : N,2Z 


Dépiler vers P 
Transfère vers P le contenu du sommet de la pile 
Le pointeur de pile est mis à jour 


Rotation à gauche de l'Accumulateur ou d'une mémoire 
Affectés : N,Z, C 


Rotation à droite de l'Accumulateur ou d'une mémoire 
Affectés : N,Z,C 


Retour d'interruption. Récupère PC et P sur la pile 
Retour de sous-programme. Récupère PC sur la pile 


Soustraction avec retenue ; À = À - M - C 
Affectés : N,V,2Z,C 


SEC 
SED 
SE 

STA 
STX 
STY 
TAX 


TAY 


TSX 


TXA 


TXS 
TYA 
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Force à 1 bit de retenue ; C = 1 

Force à 1 le bit de Mode décimal ; D = 1 
Inhibe les interruptions ; | = 1 

Ranger l'accumulateur en mémoire ; M = A 
Ranger X en mémoire ; M = X 

Ranger Y en mémoire ; M = Y 


Transfert de À dans X ; X = A 
Affectés : N,2Z 


Transfert de À dans Y ; Y = A 
Affectés : N,2Z 


Transfert de S dans X ; X = S 
Affectés : N,2Z 


Transfert de X dans À ; À = X 
Affectés : N,7Z 


Transfert de X dans S ; S = X 


Transfert de YŸ dans À ; À = Y 
Affectés : N,2Z 
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LES MODES D'ADRESSAGE 
Syntaxe des Instructions Assemb£eux : 
Les Instructions Assembleur du 6502 ont la forme suivante : 
Adresse Code -Op Opérande 


avec : Adresse = Implantation du premier octet de l'instruction, 


Code-Op = Code opératoire de l'instruction ASM 
(un des 56 codes détaillés ci-avant), 


Opérande = Partie sur laquelle va porter l'instruction 
(adresse, donnée ou inexistante). 


Les modes d'adnessage : 


ADRESSAGE FORMAT OFERANDE OFERANDE EFFECTIF 
Immédiat #$ Valeur Valeur 
Absolu $ 2 (2) 
Page © $ 2 (2) 
Page © Index X $ 2 , X (® + (X)) 
Page © Index Y $ 2 , Ÿ {® + (Y)) 
Absolu Index X $ 2 , X (D + (X)) 
Absolu Index Y $ À , Y (D + (Y)) 
Relatif $ 2 A] 
Indirect Fréind X ($ © ,X) CC + (X))) 
Indirect Postind Y {$2) , Y C(D)) + (Y) 
Indirect Absolu ($2) ((2)) 
Symboles utilisés 

@ Adresse 

$ La suite est exprimée en Hexadécimal 

Valeur Valeur Hexadécimale à deux Octets 


(AD) Contenu de la mémoire d'adresse AD 


Imprimé en Belgique 
sur les presses du Scorpion 
D/1984/3548/5 
N° d'édition 87109.11.1 
I.S.B.N. 2.87109.011.4 


“ed 


AA BOITE A OUTILS POUR ORIC 
ORIC 1 et ATMOS 
PE 20 PROGRAMMES EN BASIC 


Qui n’a jamais regretté de ne pas avoir sous la main 
le tournevis ou la pince pour faire tel ou tel bricolage ? 
Les ordinateurs par leur aspect universel sont 
comme les boîtes à outils (et les auberges espa- 
gnoles...): on y trouve ce que l’on y met. Cette 
collection MegaO-Poche n'a pas la prétention de 
livrer le secret des grandes applications informa- 
tiques, mais bien de mettre à la disposition des 
utilisateurs des petits programmes tout prêts qui 
leur permettront de résoudre de nombreux pro- 
blèmes de la vie quotidienne. 


exécution Agraph 


P.S.L DIFFUSION 
éme) 


Gr PSN) 
ISBN 2.87109.011.4 © 


RE TR OSEO SE , 4] 


verture : création et dessin Françoise Guillot, 


Cou 














| 21): BOITES A OUTILS POUR ORIC, oric 1 et ATMOS, TOME 2 


